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VOORWOORD 



Met deze verzameling financiële programma's hebben we getracht voor de ge- 
bruiker van de homecomputer een aantal voorbeelden te geven hoe de home- 
computer voor serieuze zaken te benutten. 

U vindt in dit boek een aantal kleine programma's, waarmee het mogelijk is 
de meestal ingewikkelde financiële berekeningen snel en efficiënt uit te voeren. 
Zo hebben we berekening opgenomen i.v.m. beleggen, lenen, sparen en af- 
schrijven. De berekeningen worden allemaal voorafgegaan door de Formule 
waarmee gerekend wordt en een praktisch voorbeeld. 

Naast deze berekeningen hebben we een aantal financiële programma’s opge- 
nomen die geheel op zichzelf staan, o.a. een HYPOTHEEK-berekening, 
BREAK-EVEN POINT ANALYSE, VASTE LASTEN BEWAKING, een 
simpel doch efficiënt FAKTUREERPROGRAMMA, een programma om 
PRIJSLIJSTEN te maken en een programma om FINANCIËLE KENGE- 
TALLEN voor een bedrijf te berekenen. Deze laatsten zijn stuk voor stuk 
zonder meer in een bedrijf (je) toe te passen. 

Tenslotte zouden we nog willen voorstellen om de diverse berekeningen in 
EEN programma op te nemen zodat U alle soorten berekeningen steeds in een 
programma bij de hand heeft. In dit boek hebben we echter voor de duidelijk- 
heid alle berekeningen in aparte programma’s opgenomen. 

Wij hopen dat U in de praktijk veel plezier van deze programma’s zult heb- 
ben. 

juni 1985, 
de auteur. 
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BELEGGEN 

Investeringen 1: Toekomstige waarde van 
een belegging 

De toekomstige waarde van een belegging wordt berekend met de formule: 
T = P x ((1 + I/N) t (NxJ)) 
waarbij: T = totale waarde na J Jaren beleggen 
P = Oorspronkelijke belegging 
I = De nominale Rente 
N = Aantal rentebijschrijvingen/jaar 
J = Aantal jaren dat de belegging uitstaat 
Bij dit programma wordt er van uitgegaan, dat er tussentijds geen opnames 
of stortingen plaatsvinden. 

Voorbeeld: 

Piet doet een investering van ƒ 5000,00 tegen een nominale rente van 10%. 
Wat zal zijn investering totaal waard zijn, als hij dit bedrag gedurende vijf ja- 
ren uitzet en de rente per kwartaal wordt bijgeschreven? 



'ÜEKOMSTIGE INUESTERINGS WAARDE , 



Aan vang s investering : 5000 

No ffi i n a a l r e n t e p c t . : 1 0 

h a o t a L f t n 1 15 b 1 j s c h r i j v i n 9 ë n 
P è f . j a ar : 4. 



Lo o p t i j d in j a r s n 



: 5 



T o 8 K o fï! s t i 9 ë w a a r d e = F L .319 0 .13 



No 9 •=: ë n be r e k fi n i n 9 o f Os ë ) 



9 




10 REM *************************** 
** INVESTERINGEN 1 ** 

\L‘ ^ ^ >L X ^ \L- |L> * L* ^ ^ *1^ d/ ii 1 d' d/ ^ ‘L ^ d* di iL> ^ 

#f* * -* ^ ^ ^ ^ ^y 1 » <f' ^ ^ ^ ^ ^ ^ ^ 



20 CLSrCOLOR 15.1,1 : WIDTH 40 :KEY0FF 
30 PR INT "TOEKOMSTIGE INVESTERINGS WAARDE 
." : PR INT 

40 PR I NT " % % % % % % % % % % % % % % % % % % % % % 7. % % % % % % % % % 



%%%%%%%%% 






50 PRINT 

60 I NPUT ” AANV ANGS I NVESTER I NG :";P 

70 PRINT 

80 INPUT "NOMINAAL RENTEPCT . :";I 

90 PRINT 

100 INPUT "AANTAL RENTEBI JSCHRI JVINGEN 
PER. JAAR :";N 



110 PRINT 

120 INPUT "LOOPTIJD IN JAREN :";J 
130 PR I NT : PR I NT " %%%%%%%%%%%%%%%%%%%%%%%% 

7 */ */ •/ <»/ y •/ •/ */ •/ «/ 7 •/ y •/ t* 
f 9 fa fa fa fa fa fa fa fa fa fa fa fa fa fa fa 

140 PRINT 

1 50 REM **************************** 



** BEREKEN DE RENTE PER ** 
** PERIODE ** 

**************************** 
160 I=I/N/100 

170 REM **************************** 



** BEREKEN NU DE ** 
** DE TOEKOMSTIGE WAARDE ** 
** D.M.V. DE FORMULE ** 



**************************** 

180 T=P*<1 + I> / '<N*J) 

190 PR I NT " TOEKOMST I GE WAARDE =F1.";INT(T 
* 1 00+ , 5 ? / 1 00 

210 LOCATE 0,21 :PRlNT"Nog een berekening 
Ja/Nee ? " 

220 Q$=INKEY$ ; I F Q$="" THEN 220 
230 IF Q$="J" OR Q$ 5 = " j " THEN RUN 
240 IF Q$<>"N" AND Q$<>"n" THEN 220 
250 END 




Investeringen 2: Regelmatige opnames uit 
een belegging 

Met dit programma berekent U welk bedrag U maandelijks kunt opnemen van 
een belegging gedurende een aantal jaren tot het restbedrag van de belegging 
NUL is. 

De formule voor deze berekening is: 

R = Px((I/N)/((l + I/N) t (Nx J)- 1) + (I/N)) 
waarbij: R = Bedrag van de regelmatige opname 
P = Basisbedrag van de belegging 
I = De nominale intrest 

N = Aantal malen dat het bedrag R wordt opgenomen per jaar 
J = aantal jaren dat het basisbedrag P uitstaat 

Voorbeeld: 

De vader van Pieter besluit het wat rustiger aan te doen en heeft daarom beslo- 
ten zijn aandeel in de zaak van zijn broer te verkopen. 

Zijn broer besluit het zelf te kopen voor het lieve sommetje van ƒ 125.000,00. 
Omdat hij nog geen recht op AOW heeft, besluit hij het bedrag in de 10 jaren 
tot zijn pensioengerechtige leeftijd op te souperen. De rentevergoeding be- 
draagt 9,5%. Wat kan de vader van Pieter nu maandelijks opnemen geduren- 
de die 10 jaren, zodat zijn gehele belegging na 10 jaar precies NUL is? 



REGELMATIGE OPNAMES 
UIT EEN BELEGGING 

WBSWmfflgWWBBBU&BaSfflBBERm 



Basis belegging : 125Ö0© 

No rn i n a le re n te pet. : 9 . 5 
Aa n t a t o p n a i ïi e s ( p / j ) : 

Looptijd : 10 



wsmsssBsm mmmmsmmssssssssm 

BEDRAG PER OPNAME=F l . 1617 . 47 



Nog een berekening ? (Ha of fflee) 
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10 REM ****##****#***#*#**#**¥*¥## 

** INVESTERINGEN 2 ** 

^ <f* ^ /p *p 4* x * T 1 * ^r T ^ ^ ^ ^ ^ t* *r 

20 CLSiCOLOR 15,1,1 : WIDTH 40 :KEYOFF 
30 PRINT" REGELMATIGE OPNAMES 

UIT EEN BELEGGING" :P 



RINT 

40 PR I NT " %%%%%%%%%%%%%%%%%%X%%%%%%X%%%%% 
%%%%%%%%%" 

50 PRINT 

60 INPUT "BAS IS BELEGGING :";P 

70 PRINT 

80 INPUT"NOMINAAL RENTEPCT . :";I 

90 PRINT 

100 INPUT "AANTAL OPNAMES P/3 :";N 

110 PRINT 

120 INPUT "LOOPTIJD IN JAREN :";J 
130 PR I NT : PR I NT " %%%%%%%%%%%%%%%%%%%%%%%% 
%%%%%%%%%%%%%%%%" 

140 PRINT 

150 REM #**#*****#****#¥***#*#*##*#* 

** BEREKEN DE RENTE PER ** 

** PERIODE ** 

fcirn*#************#**#*#***# 



160 I-I/N/100 

170 REM #***##*¥**#*#*#**#****¥***#* 

*¥ BEREKEN NU DE ** 

** DE REGELMATIGE OPNAME ** 

¥* D.M.V. DE FORMULE ** 

**%$**%X%t1l/;*#X1l.!lli****$*$*t*%* 

180 R=P*( I/<(1 + I) / '(N¥J)-1) + I) 

190 PR INT "BEDRAG PER OPNAME *F1,"; 

195 PRINT US ING" #######.##" |R 
210 LOCATE 0,21 :PRINT"Nog een berekening 
Ja/Nee ? " 

220 Q$=INKEY$: IF Q$»"" THEN 220 
230 IF Qfa" J" OR THEN RUN 

240 IF Q4K>"N" AND Q«<>"n" THEN 220 
250 END 
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Investeringen 3: Berekenen van 
basisbelegging om een bepaald 
streefbedrag te verkrijgen 



Dit programma berekent voor U wat U als basisbedrag moet beleggen om na 
een J aantal jaren een bepaald bedrag bij elkaar te hebben. 

De berekening is volgens de formule: P = T/((l + I/N) | (NxJ)) 

waarbij: P = Basisbelegging 

T = Gewenst Eindbedrag 
N = Aantal rentebijschrijvingen per jaar 

J = Aantal jaren dat U wilt beleggen om het bedrag T bij elkaar te 
krijgen 

I = De nominale intrest 
Voorbeeld: 

Hoeveel moet U beleggen tegen een rente van 8,5% om na 10 jaar een bedrag 
van ƒ 20.000,00 bij elkaar te hebben vergaard? De rente wordt per kwartaal 
bijgeschreven. 

Uiteraard wordt hier rekening gehouden met rente op rente. 
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10 REM ***************** * **** ** *** 
** INVESTERINGEN 3 ** 



j|^ ^ ^ ^ ^ ^ ^ ^ l^i ^1 ^ t^> ^ ^ ^ ^ ^ j|^ 

20 CLSlCOLOR 15,1.1 iWIDTH 40:KEYOFF 
30 PRINT" BEREKENEN VAN BASISBELEGGING 
" : PR INT 
40 PR i NT " 

%%%%%%%%%" 



50 PRINT 

60 INPUT "STREEFBEDRAG S";T 

70 PRINT 

80 INPUT "AANTAL RENTEBI JSCHRI JVINGEN 
PER JAAR : " : N 



90 PRINT 

100 INPUT" AANTAL JAREN :";J 

110 PRINT 

120 INPUT "NOMINAAL RENTEPERCT . :";I 

130 PRINT: PR I NT " XXXXXXXXXXXXXXXXXXXXXXXX 



XXXXXXXXXXXXXXXX* 

140 PRINT 

150 REM ♦jlt****^^^^*******:******:*^*^* 
#* BEREKEN DE RENTE PER *# 
** PERIODE ** 



**************************** 



160 I-I/N/100 

170 REM **************************** 

** BEREKEN NU DE ** 

** AANVANGSINVESTERING ** 

** D.M.V. DE FORMULE ** 

**************************** 

180 psT/U + I> / '<N*J> 

190 PR I NT " AANVANGS I NVESTER I NG =F1."; 

195 PRINT US ING "####### . ##" ;P 
210 LOCATE 0.21 : PR INT "Nog een berekening 
Ja/Nee ? " 

220 Q$*INKEY$ : IF Q$*"" THEN 220 
230 IF Q$ s " J" OR Q$«"j" THEN RUN 
240 IF QIO"N" AND Q$<>"n" ‘THEN 220 
250 END 
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Investeringen 4: Berekenen van 
basisbelegging om regelmatige opnames 
te kunnen doen 

Dit programma berekent welk bedrag U minimaal moet investeren om gedu- 
rende een aantal jaren bepaalde bedragen te kunnen opnemen uit Uw beleg- 
ging. Het programma gaat er vanuit dat dit een minimum investering is, dit 
betekent dat ervan wordt uitgegaan dat het restbedrag na die jaren NUL is. 
Indien U meer stort dan nodig is voor Uw regelmatige opnames heeft U nog 
een aardige som over na die jaren. 

De berekening geschiedt met de formule: 

P = (R x N/I) x (((1 — (1/((1 4- I/N) t (N x J)))))) 
waarbij: P = Minimale basisbelegging 

R = Bedrag van de regelmatige opname 
I = De nominale intrest 
N = Aantal opnames per jaar 

J = Aantal jaren dat U regelmatige opnames wilt doen 
Voorbeeld: 

Hoeveel moet ik minimaal investeren om gedurende 12 jaar elke maand 
ƒ 980,00 op te nemen, als de rentevergoeding 6,5970 is? 



MINIMALE BELEGGING 
UüÜR periodieke opnames 



Bedrag 


v a n o p n a e s 


: 9 S 0 


No Bi i na i. 


e re n t e p c t . 


: 6 . 5 


Pi an t a i 


o P n a ra e s ( p / j ) 


: 12 


Pian ta i 


j are n 


: 12 



Min. investering = FL.97S12.09 
Nog een berekening ? (Ha of Hee) 
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10 REM ***** ****** ***** *********** 

** INVESTERINGEN 4 ** 

20 CLS :COLOR 15,1,1 : WIDTH 40 iKEYGFF 
30 PRINT" MINIMALE BELEGGING 

VOOR PERIODIEKE OPNAME 



S" 

40 



: PRINT 

PR INT " %%%%%%%%%%%%%%%%%m%%%%%%%7.%%% 



%%%%%%%%%" 

50 PRINT 

60 INPUT "BEDRAG VAN OPNAMES :";R 

70 PRINT 

80 INPUT "NOMINAAL RENTEPCT . :";I 

90 PRINT 

100 INPUT "AANTAL OPNAMES P/J :";N 
110 PRINT 

120 INPUT" AANTAL JAREN :";J 

130 PR I NT : PR I NT " 



XXXXXXXXXXXXXXXX” 

140 PRINT 

150 REM **************************** 
** BEREKEN DE RENTE IN ** 
** DECIMALEN ** 



160 1*1/100 

170 REM **************************** 

** BEREKEN NU DE ** 

** MINIMALE INVESTERING ** 

** D.M.V. DE FORMULE ** 

**************************** 

180 P*R*N/I#<1-1/<<1+I/N>*<N*J>)> 

190 PRINT"MIN . INVESTERING = Fl."; 

195 PRINT US ING "####### .##" ;P 
210 LOCATE 0 ,21 :PRINT"Nog een berekening 
Ja/Nee ? " 

220 Q$-INKEY$:IF Q$='"' THEN 220 
230 IF Q$*=" J" OR THEN RUN 

240 IF Q$0"N" AND Q$<>"n" THEN 220 
250 END 
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Investeringen 5: Berekenen van de 
nominale rente op investeringen 



Met dit programma berekent U de nominale rente van een investering als U 
van tevoren weet wat de investering waard is nadat het een aantal jaren heeft 
uitgestaan. 

De formule voor deze berekening is: 

I = (N x (T/P) | (1/N X J) — N 

waarbij: I = De nominale intrest 
P = Basisinvestering 

T = De toekomstige waarde van de investering 
N = Aantal rentebijschrij vingen per jaar 
J = Aantal jaren dat de belegging uitstaat 

Voorbeeld: 

Jan besluit om ƒ 3000,00 te beleggen. Na 5 jaar blijkt zijn tegoed op de beleg- 
gingsrekening ƒ 4150,00 te zijn. 

Wat is de nominale rentevergoeding die hij met deze belegging heeft gereali- 
seerd? 



MOM INAAL RENTEPERCENTAGE 
OP INVESTERINGEN 






Aanvangs i n ves te r i ng : 3000 

T o t a ie uj aarde : 4 1 Sö 

Aantal, jaren :5 

Aantal rente bij- 
s c h r i j v i n g en per Jaar : 4 



^ssssss s ss^ sss^ssssssssssssssssssss^ 

N o iii i n a l e rente = 6 . 5 4 i=i S5 S 7 v # 



Nog een berekening '? (Ha of fflee) 
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10 REM *************************** 

** INVESTERINGEN 5 ** 

K#**##**#*****#**####*##### 

20 CLSiCOLOR 15,1.1 : WIDTH 40 :KEYOFF 
30 PRINT" NOMINAAL RENTEPERCENTAG 

E OP INVESTERINGEN" :P 

RINT 

40 PRINT"% 

%%%%%%%%%" 



* ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 



50 PRINT 

60 I NPUT " AANV ANGS I NVESTER I NG :";P 

70 PRINT 

80 INPUT "TOTALE EINDWAARDE :";T 
90 PRINT 

100 INPUT" AANTAL JAREN :";J 

110 PRINT 

120 INPUT "AANTAL RENTEBI JSCHRI JVINGEN 
PER JAAR : " ;N 

130 PR I NT : PR I NT " 

140 PRINT 

170 REM *#***#**#**#**##*#*#* ####*** 



** BEREKEN NU HET ** 
♦^NOMINAAL RENTEPERCENTAGE** 

** D.M.V. DE FORMULE ** 

180 I=N*<<T/P)~<1/<N*J>)-1>*100 
190 PRINT"NOMINALE RENTE » 

195 PRINT US ING "#######.##" ;I 
210 LOCATE 0,21 J PR INT "Nog een berekening 
Ja/Neè ? " 

220 Q$*INKEY$ : IF Q$*"" THEN 220 
230 IF Q$= " J " OR Q$= " j " THEN RUN 
240 IF Q$O w N" AND QfO"n" THEN 220 
250 END 
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Investeringen 6: Berekenen van effectieve 
rente op een investering 

Met dit programma dat direct aansluit op INVESTERINGEN 5 berekent U 
de effectieve rente van een bepaalde investering. 

De berekening van de effectieve rente geschiedt met de formule: 

E = ((T/P) | (1/J)- 1) x 100 
waarbij: E = Effectief rentepercentage 
P = Basisinvestering 
T = Waarde van investering na J jaren 
J = Aantal jaren dat de belegging uitgestaan heeft 

Voorbeeld: 

Jan heeft ƒ 12.000,00 belegd, na 5 jaren was zijn belegging ƒ 14.900,00 waard. 
Wat is het effectieve rentepercentage van zijn belegging? 



EFFECTIEF RENTEPERCENTAGE 
O P INUESTERI N G E N 

Ra n v a n g s in v e s t e r i n g : 12000 
To t a 1. e eind -w aarde : 14900 

Aantal jaren :5 



Rente pct.(p/j) = 4.4241634 Y. 



Nog een berekening ? (Ha of Glee) 
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1 0 REM *************************** 

** INVESTERINGEN 6 ** 

*************************** 

20 CLS :COLOR 15.1.1 :WIDTH 40 :KEYOFF 
30 PRINT" EFFECTIEF RENTEPERCENTAG 

E OP INVESTERINGEN" :P 

RINT 

40 PRINT" 

%%%%%%%%%" 

50 PRINT 

60 I NPIJT " A ANV ANGS I N VESTER ING : " ; P 

70 PRINT 

80 INPUT "TOTALE EINDWAARDE :";T 
90 PRINT 

100 INPUT" AANTAL JAREN :";J 

110 PRINT 

130 PR I NT : PR I NT " 

%%%%%%%%%%%%%%%%" 

140 PRINT 

170 REM ***************************** 

** BEREKEN NU HET ** 

**EFFECTIEF RENTEPERCENTAGE** 

** D.M.V. DE FORMULE #* 

^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ T T T* ^ t 1 T* T T T ^ x X T 

180 I = <<T/P) , 'a/J)-l)*100 
190 PR INT "EFFECTIEVE RENTE « 

195 PRINT U$ ING "####### ; I 

210 LOCATE 0.21 :PRINT"Nog een berekening 
Ja/Nee ? " 

220 Q$=INKEY$ : I F G$="" THEN 220 
230 IF Q$=" J" OR Q$="i" THEN RUN 
240 IF Q$<>"N" AND Q«Ö"n" THEN 220 
250 END 




Sparen 1: Toekomstige waarde berekenen 
van regelmatig sparen 

De toekomstige waarde van zo’n spaarvorm wordt berekend met de formule: 
T = R x (((1 + I/N) t (NxJ)-l)/(I/N)> 
waarbij: T = Totale waarde na J jaren sparen 
R = Het regelmatige spaarbedrag 
N = Aantal stortingen per jaar 
J = Aantal jaren dat er gespaard wordt 
I = Nominale Rente 

Bij dit programma wordt er van uitgegaan, dat alle stortingen gelijk zijn en 
er tussentijds geen opnames plaatsvinden. Bovendien wordt verondersteld dat 
de rente wordt bij geschreven elke keer als er gestort wordt. 



Voorbeeld: 

Pieter besluit elke maand ƒ 50,00 te sparen tegen een rente van 5%. Hoeveel 
heeft Pieter bij elkaar gespaard na 5 jaar? 
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1 0 REM *************************** 

** SPAREN 1 ** 

^ lp ^ ^ ^ ^ ^ ^ T ^ ^f 1 T ^1 ^ ^ ^ T» If* ^ T ^ ^ T* ^ ^P* 

20 CLS :COLOR 15,1,1 : WIDTH 40 :KEYOFF 
30 PRINT" TOEKOMSTIGE WAARDE VAN 

REGELMATIGE DEPOSITO’S 



" : PRINT 

40 PRINT" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
%%%%%%%%%" 

50 PRINT 

60 INPUT "BEDRAG VAN DEPOSITO :";R 
70 PRINT 

80 I NPUT " RENTEPERCENT AGE :";I 

90 PRINT 

100 INPUT"AANTAL DEPOSITO’S P/J :";N 
110 PRINT 

120 INPUT" AANTAL JAREN :";J 

130 PR I NT : PR I NT " Y.% 



%%%%%%%%%%%%%%%%" 

140 PRINT 

150 REM ***************************** 
** BEREKEN HET RENTEPCT . ** 

** PER DEPOSITO ** 

**VAN PROCENT NAAR DECIMAAL** 

4^ ^ ^ ^ ^ ^ 'p ^ t T T 'P ^ T T T ^ ^p T ^ T T 

160 I-I/N/100 

170 REM ***************************** 
** BEREKEN NU DE ** 

** TOEKOMSTIGE WAARDE ** 
** D.M.V. DE FORMULE ** 

^ ^ ^ ^ * ^p T T T T T ^ * T 



180 T»R*(<1+I)~<N#J>-1)/I 

190 PR INT "TOEKOMSTIGE WAARDE = Fl."; 

195 PRINT US ING "####### . ##" ;T 
210 LOCATE 0,21 : PR INT "Nog een berekening 
Ja/Nee ? " 

220 Q$-INKEY$ : I F 0$="" THEN 220 
230 IF Q$=" J" OR Q$=s"j" THEN RUN 
240 IF qi<>"N" AND q$<>"n" THEN 220 
250 END 




Sparen 2: Sparen met de bedoeling een 
bepaald eindbedrag te vergaren 



Met sparen 2 kunt U berekenen welk bedrag U maandelijks moet sparen om 
na een bepaalde tijd een streefbedrag bij elkaar te hebben vergaard. 

De berekening geschiedt met de formule: 

R = Tx(((I/N)/((l + I/N) | <NxJ)-l))) 
waarbij: T = Streefbedrag 

R = Bedrag dat men regelmatig moet sparen 
I = De nominale Intrest 
N = Aantal stortingen per jaar 

J = Aantal jaren waarin men het streefbedrag bij elkaar wilt hebben 



Voorbeeld: 

Pieter besluit een nieuwe printer voor zijn homecomputer te kopen. Dit appa- 
raat kost ƒ 1500,00 en hij wilt het in 1 jaar bij elkaar gespaard hebben. Hij 
spaart elke maand en de rente op zijn spaarrekening is 6,5%. Welk bedrag 
moet Pieter nu elke maand sparen om na 1 jaar precies ƒ 1500,00 te hebben 
gespaard? 



REGELMATIGE DEPOSITO 1 S 



Totale eind w aarde : 1 500 

No in i n a le re n te pet. : S . 5 

Aan ta l depos i to 'sip /.j ) : 12 
Aantal jaren :l 



Re ge lm . deposito's =Ft .111.68 



Nog een berekening ? (Ha of Hee) 
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10 REM ** **** ******* ***** ********* 



** SPAREN 2 ** 

^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ rp ^ ^ ^ ^1 ^ ^ ^ ^ 

20 CLSrCOLOR 15,1,1 i WIDTH 40 :KEY0FF 
30 PRINT" REGELMATIGE DEPOSITO’S 

" : PR INT 



40 PR int " %%%m%%mm%m%%%m%m%%% 
%%%%%%%%%" 



PRINT 

INPUT "STREEFBEDRAG 
PRINT 

I NPUT " RENTEPERCENT AGE 
PRINT 

AANTAL DEPOSITO’S P/J *";N 



50 
60 
70 
80 
90 

100 INPUT 
110 PRINT 
120 INPUT 



'AANTAL JAREN 



>T 



51 



;J 



130 PR I NT : PR I NT " %%%%%%%%%%%%%%%%%%%%%%%% 



%%%%%%%%%%%%%%%% " 

140 PRINT 

150 REM ***** ************************ 



** BEREKEN HET RENTEPCT . ** 
** PER DEPOSITO ** 
**VAN PROCENT NAAR DECIMAAL** 



® ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^p 

160 I=I/N/100 

170 REM ***************************** 

** BEREKEN NU HET ** 

** REGELMATIGE DEPOSITO ** 

** D.M.V. DE FORMULE ** 

*p x T t 1 T ^ ^ T 1 ^ ^ T X ® ^ t 1 ^ ^ x T ^ ^ 

180 R«T*I/UI + ir<N+J?~l) 

190 PRINT"REGELM. DEPOSITO = Fl."; 

195 PRINT USI NG "#######.##" ;R 
210 LOCATE 0,21 :PRINT”Nog een berekening 
Ja/Nee ? " 

220 Q$~INKEY$ : IF Q$*"" THEN 220 
230 IF OR THEN RUN 

240 IF Q4K>"N" AND Q$<>"n" THEN 220 
250 END 
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RENTETABEL 



Met dit programma krijgt U een overzicht van de verdiende rente in tabel- 
vorm. U krijgt daarmee een duidelijk overzicht van de renteontwikkeling van 
Uw investering. 

In de tabel vindt U de volgende gegevens 

a) Jaar van overzicht 

b) Balans van Uw belegging 

c) Rente tussen 2 opeenvolgende perioden 

d) Cumulatieve rente 

Daarnaast wordt voor U het effectief rentepercentage berekend. 

Voorbeeld: 

Karei heeft ƒ 1500,00 uitstaan tegen een rente van 6%. De rente wordt per 
kwartaal bijgeschreven. Wat is de renteontwikkeling van deze belegging in het 
zesde en zevende jaar. 



Ra n v a n 3 s i n v e s t er i n *3 : F L . 1500 
N o in 1 n a a 1 . r ante pet- : 6 % 

Lu O P t i j d : 7 J 3 3 r . 

Effectief r e nte p c t . : 6 . 14% ( p / j ) 



SEEH 



1 RL QN 51 



2050 . 58 
2081.34 
2112.56 
2144.25 



2176.41 
, 2209.06 
2242.2 
2275.83 



[RE NT El 



550 . 59 
30 . 76 
31.22 
31.69 



32. 16 
32.65 
33, 14 
33.63 



CUM . R 



ama 



550.53 

531.34 

612.56 

644.25 

676 . 4 1 
709 . 06 
742.2 



775.SC 



Nog een be rekening ? (Ba of fflee) 
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1 0 REM ****************** <***** 



** 






** 


*# 


RENTE - 


TABEL 


** 


** 






** 



X yL* ,1» «L “X> yi> yL «L (L* yi) sL ^ ^ ^ tb |b ^ 

^ T if* T T» ^ ^ T ^ ^ 

20 CLS : WIDTH 40:COLOR 15,1,1 :KEYOFF 
30 DEF FNQ<X)=INT <X*100+ .5)/ 100 
40 PRINT" VERDIENDE RENTE BEREKENE 

N" : PR INT 

50 PRINT" %%%%%r.%%%%7ö%%%%%%%%%%%%%%%%%%%% 
%%%%%.%%%" : PR INT 

60 INPUT "AANVANGS INVESTERING: " ;P 
70 PRINT 

80 INPUT "NOMINAAL RENTEPCT . : " ; I 
90 REM *********************** 

** VAN PROCENT NAAR ** 

** DECIMAAL ** 

d/ yb «L |L> ib X •X' ^ tb X 4 X X 4* X X <JL> X X <lb 

^•T^TT' TTT^rTT TTTf'^TTTT^TT 

100 1=1/100 :PRINT 

110 INPUT" AANTAL DEPOSITO’S OF 

OPNAMES PER JAAR : ";N1 
120 REM *********************** 

** VRAAG NIET NAAR ** 

** BEDRAG ALS N1=0 ** 

>||» ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

130 IF N1=0 THEN 230 

140 REM *********************** 

** DEPOSITO’S WORDEN ** 

** INGEVOERD ALS EEN ** 

** POSITIEF GETAL ** 

yb \L ^ X ^ yb |b yb I Li «Jj «J< yt« di yb tL> .L iJLl yb yb jj 

^ ^ ^ ^ ^ /p ^ ^ ^ ^ ^ ^ ’t ‘f* 

150 REM *********************** 

** OPNAMES WORDEN ** 

** INGEVOERD ALS EEN ** 

** NEGATIEF GETAL ** 

<jc ^ ^ ^ ^ ^ ^ y|/ y^| ^ vj^ ^ ^ ^ yji' yjj» 

160 PRINT 

170 INPUT "BEDRAG VAN ST0RTING<+) 

OF 0PNAME<-) : " ;R 
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180 REM *************************** 

** RENTE WORDT DAGELIJKS ** 

** BIJGESCHREVEN ** 

*************************** 

190 N-360 

200 REM *************************** 

** PRINTEN VAN DEPOSITO'S*# 

** EN OPNAMES ** 

210 L2=N1 
220 GOTO 280 
230 PRINT 

240 INPUT"AANTAL RENTE BIJ- 
SCHRIJVINGEN PER JAAR : " ;N 

250 N1*0 

260 REM **************** *********** 

** PRINT DE GEGEVENS 4x ** 

** PER JAAR ** 

X »i» X ^ x X X X X X X X X X X X X X X X X X X X X 

^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

270 L2-4 

280 PR INT: INPUT "BEGIN JAAR :"; 

290 PRINT: INPUT" LAATSTE JAAR :"; 

300 REM *************************** 

*# START PRINTEN VANAF ** 

** HET BEGIN VAN EEN JAAR** 

^ T** T ^ T * ^ T <p T" ^ ^ ^ ^ ^ ^ ^ 

310 X=INT(X) 

320 REM *************************** 

** INITI ALISEREN VAN DE ** 

** HULPVARIABELEN #* 
*************************** 

330 B0=P 

340 I 1=0 : 12-0 : 13-0 
350 K=0 

360 Q= 1 0 : 1 F N1=0 THEN Q=7 
370 Pl-4 

380 FOR J=1 TO INT(Y)+1 

390 REM ** PRINTEN STARTEN ? ** 

400 IF J<X THEN 600 
410 IF K-l THEN 590 
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VERDIENDE RENTE-TABEL" 



420 CLS 
430 PRINT" 

440 PRINT 

450 PRINT" AANVANGSINVESTERING : F1 . " ;P 
460 PRINT"NOMINAAL RENTEPCT . * ; 1*10 

0;" V' 

470 PRINT"LOOPTI JD 
JAAR . " 

480 K=1 

490 REM *************************** 

** SLA HET VOLGENDE OVER ** 

**ALS ER GEEN REGELMATIGE** 

** DEPOSITO’S OF OPNAMES ** 

** ZIJN. ** 

^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ |||É ^ ^ j|^ ^ ^ 

500 IF Nl-0 THEN 530 

510 PR INT "REGELMATIGE DEPOSITO’S 

OF OPNAMES :F1."*R 

520 PRINT" AANTAL MALEN (P/J) :";N1 

530 PRINT"EFFECTIEF RENTEPCT. :";FN Q 

< 1 00* ( < 1 + I/N> "'N— 1 > > %<P/J>" 

540 LOCATE 0 ,Q :PRINT" JAAR BALANS R 
ENTE CUM. RENTE" 

550 GOTO 590 

560 REM **** RENTE BEREKENING **** 

570 PRINT 

580 REM **** PRINT HET JAAR **** 

590 PRINT J; 

600 Ll-l :N2=1 :P2=1 
610 FOR B=1 TO N 

620 REM *************************** 

** ZIJN ER NOG MEER DEPO-** 

** SITO’S OF OPNAMES IN ** 

** DIT JAAR ? ** 

*************************** 

630 IF N2>N1 THEN 690 

640 IF N2/N1 >B/N THEN 690 

650 REM *************************** 

** BEREKEN NIEUWE BALANS ** 

* T ^ T T T T ^ T T T 
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660 B0-B0+R 

670 REM *¥¥#*¥**¥¥*¥**¥¥¥¥¥¥¥¥¥¥*¥¥ 

** TEL AANTAL OPNAMES OF ** 

** DEPOSITO’S ¥¥ 

^ ^ ^ ^ ^ ^ ^ ^ ijl tlt ^ ^ ^ 

T T T' T T ^ T T T T T T t T T x ^ T T T ^ ^ ^ ^ 

680 N2=N2+1 
690 B2=B0¥< 1+I/N) 

700 REM ** II IS RENTE PER ** 

** BIJSCHRIJVING ** 

710 I 1=B2-B0 

720 REM ¥* 13 IS DE GEACCUMULEERDE ¥¥ 



** RENTE TUSSEN DE ** 

** BIJSCHRIJVINGEN ¥¥ 

730 13=13+11 

740 REM ** 12 IS DE TOTAAL ¥¥ 

** GEACCUMULEERDE RENTE ¥¥ 
750 12=12+11 



760 REM ** AFRONDEN OP BOEK I NGSMOMENT ¥ * 
770 IF P2/P1 >B/N THEN 820 
780 I2=FN Q< 12) 

790 B2=FN Q(B2) 

800 P2=P2+1 

810 REM ¥ ¥ VANAF WELK JAAR PRINTEN ¥¥ 

820 IF J<X THEN 920 

830 REM ¥¥ MOET ER EEN REGEL ¥¥ 

¥¥ GEPRINT WORDEN ? ¥¥ 

840 IF B/N<L1/L2 THEN 920 
850 L1=L1+1 

860 PRINT TAB<5): USING"###### . ##" ;FN Q< 
B2);:PRINT TABU6) ; US ING "##### .##" ; FN Q< 
1 3 > ; : PR I NT TAB<25) ;USING"##### ; FN Q 
< 12) 

870 Q*Q+1 

880 IF Q>20 THEN GOSUB.1090 

890 REM ¥¥ HULPVARIABELEN AANPASSEN ¥¥ 

900 13=0 

910 REM ¥¥ HET JAAR WORDT ALLEEN ¥¥ 

¥¥ GEPRINT BIJ ELKE EERSTE ¥¥ 

¥¥ REGEL VAN EEN JAAR ¥¥ 

920 B0*B2 




930 REM ** GEEN REGELS MEER PRINTEN** 

** VAN HET LAATSTE JAAR ** 

940 IF J+B/N-1>*Y THEN 1030 
950 NEXT B 

960 REM ** PRINTEN ?? ** 

970 IF J<X THEN 1020 

980 IF Q<21 AND N1O0 AND QO10 THEN PRI 
NT 

990 IF Q<21 AND N1*0 AND Q<>7 THEN PRINT 
1000 IF N1=0 AND Q<>7 OR N1O0 AND QO10 
THEN Q=Q+1 

1010 IF Q>20 AND J>*X THEN GOSUB 1090 
1020 NEXT J 
1030 PRINT 

1040 LOCATE 0,21 :PRINT"NOG EEN BEREKENIN 
G ? C Ja/Nee) M 

1050 Q$*INKEY$ : I F Q$*"" THEN 1050 
1060 IF Q$*"j" OR Q$=" J" THEN RUN 
1070 IF Q$*"h" OR Q$="N" THEN END 
1080 GOTO 1050 

1090 LOCATE 0,23:PRINT" >RETURN< = VOLGE 
NDE PAGINA * 

1100 Q$*INKEY$ : IFQ$*" " THEN 1100 
1110 IF ASCWXM3 THEN 1100 
1120 0*10 

1130 IF N1*0 THEN Q*7 
1140 CLS 

1150 PRINT" VERDIENDE RENTE-TABEL" 

1160 PRINT 

1170 PRINT" AANVANGS INVESTERING : F1 . ";P 
1180 PRINT"NOMINAAL RENTEPCT . *;I*1 

00;" X" 

1190 PRINT"LOOPTI JD :";Y;" 

JAAR . " 

1200 LOCATE 0,Q: PR INT "JAAR BALANS 
RENTE CUM. RENTE" 

1210 RETURN 




LENINGEN 



Leningen 1: Wat kan ik lenen? 

Met dit programma berekent U snel wat er oorspronkelijk geleend is als U be- 
schikt over de gegevens betreffende totale looptijd, jaarlijkse rente, aantal be- 
talingen per jaar, bedrag dat regelmatig betaald moet worden. 

De berekening geschiedt met de formule: 

P = RxNx(l-l/((I/100)/N+l) t (Nx J))/(Ix 100) 
waarbij: R = Bedrag 

I = Jaarlijkse rente 
J = Looptijd van de lening i 

N = Aantal aflossingen per jaar 

Voorbeeld: 

Als ik maandelijks ƒ 125,00 kan aflossen op een lening van 20% gedurende 
drie jaren. Wat is dan het bedrag, dat ik kan lenen? 



HOEUEEL KhN IK LENEN ? 

Be d ra 9 v a n af l o s s i n g : 125 
fiantal ja ren . :3 

■Jaarlijks rentenet . : 20 

Plan ta 1 . a f Lossingen (p/ j ) : 12 

Lening = FL 3353.51 

Nog een berekening ? (Ra of He e ) 



31 




10 REM #*## *¥**¥«* *#**### ut##**»# 

** LENINGEN 1 ** 

*!mf¥**¥****f¥**¥******¥ 

20 CL5 :COLOR 15,1 * 1 : WIDTH 40 :KEYOFF 
30 PRINT* HOEVEEL KAN IK LENEN ?*: 

PRINT 
40 PR i NT * 

%%%%%%%%%" : PR INT 

50 INPUT* BEDRAG VAN AFLOSSING :*;R 
60 PRINT 

70 INPUT "AANTAL JAREN 
80 PRINT 

90 INPUT* JAARLIJKS RENTEPCT . 

100 PRINT 

110 INPUT "AANTAL AFLOSSINGEN P/J:*jN 

120 print j PR int" 

%%%%%%%%%%%%%%%% * 

130 PRINT 

150 REM **************$****** #**##*# 

#* *# 

*$ RENTE OMZETTEN VAN ## 

#* PROCENT NAAR DECIMAAL ** 
**!):*¥**#¥:«**********¥*$«**** 



"JJ 
" ;i 



160 1^1/100 

170 REM ******* *********** ********** 



** 


BEREKEN 


NU HET 


** 


II 


TE LENEN 


BEDRAG 


** 


** 


D.M.V. DE 


FORMULE 


** 



**************************** 

180 P*R*N*U~1/<I/N+1?''<N*J>>/U) 

190 PRINT*LENING “ Fl.*; 

200 PRINT US ING "#######.##" ;P 

210 LOCATE 0,21 ! PRINT* NOG EEN BEREKEN 

TNfl .Ta/Naa ? " 

220 Q$*INKEY$ I IF Q$a"* THEN 220 
230 IF Q$«"J" OR Qf«*j* THEN RUN 
240 IF Q$0"N* AND QfO"h* THEN 220 
250 END 




Leningen 2: Berekenen van het 
aflossingsbedrag van een lening 



Met dit programma berekent U welk bedrag U per aflossingsperiode moet be- 
talen op een bepaalde lening. 

De berekening geschiedt volgens de formule: 

R = ((I/100)xP/N)/(l-l/((I/100)/N+l) ( (NxJ)) 
waarbij: R = Aflossingsbedrag 
P = Bedrag van lening 
I = Jaarlijkse rentepercentage 
N = Aantal aflossingen per jaar 
J - Aantal jaren dat er afgelost moet worden 

Voorbeeld: 

Wat moet U betalen op een lening van ƒ 12.000,00 tegen 8%, als U gedurende 
vijf jaar per maand moet terugbetalen? 



REGELMATIGE AFLOSSINGEN. 


mmssssM 




Aantal jar 


en : 5 


Bed ra *3 van 


lening : 1 S 000 


Ja a r l i j k s 


r e n t e p et, ; s 


Aantal afl 


0 s s i n g e n ( p / j ) : 12 




v •/ v ■/ v v v v v • / v y y y y yv v v v v vna** 1 


Aflossing 


= F 1 £43,32 


Nog een be 


rekening ? (Ba of Slee) 
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10 REM ttttttttttttttttttttttttt 
** LENINGEN 2 ** 



^ m fL ^ ^ ^ ^ fif |L ^ lil O» ^ ^ ^ ^ ^ ^ ^ ^ U> 

^ “p ^ ^ >p ^ ^ ^ T ♦ * * T 1 T* • x * ^ x nr ^r 



20 CLS :C0L0R. 15,1,1 :WIDTH 40 :KEY0FF 
30 PRINT" REGELMATIGE AFLOSSINGEN 

" : PRINT 

40 print" %mm%x%%%mx%%mx%x%%%m% 



%%%%%%%%%" : PR INT 

50 INPUT "AANTAL JAREN :";J 

60 PRINT 

70 INPUT "BEDRAG VAN LENING :";P 

80 PRINT 

90 INPUT" JAARLIJKS RENTEPCT . :":I 

100 PRINT 

110 INPUT "AANTAL AFLOSSINGEN P/J:";N 
120 PR I NT : PR I NT " X%%X%%X%X%XX%Z%%%%%%%%%% 



%%%%%%%%%%%%%%%% * 

130 PRINT 

150 REM tatttttttttttttttttttttttttt 



tt 

** RENTE OMZETTEN VAN *¥ 
#* PROCENT NAAR DECIMAAL *# 



160 1=1/100 

170 REM tttttttttttt* ttttttttttttttt 



tt 


BEREKEN 


NU HET 


** 


** 


TE LENEN 


BEDRAG 


at 


rt 


D.M.V. DE 


FORMULE 


at 



^ ^ ^ ^ ^ ^ ^ ^ T * /p ^ ^ * T* * ^ ^ ^ ^ T * T T» ^ T * 



180 R=<I*P/N>/<l-l/<<I/N+ir<N*J>>> 

190 PRINT" AFLOSSING * Fl."; 

200 PRINT US ING "####### .##" |R 

210 LOCATE 0,21: PRINT" NOG EEN BEREKEN 

ING Ja/Nee ? " 

220 G$*INKEY$ : IF Q$=" M THEN 220 
230 IF Q$s" J" OR Q$*"j" THEN RUN 
240 IF Q$<> "N" AND QfO"n" THEN 220 
250 END 
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Leningen 3: Laatste betaling van een 
lening 



Dit programma berekent voor U het laatste aflossingsbedrag van een lening 
of het bedrag dat er nog openstaat van een lening nadat U een X aantal malen 
heeft afgelost. 

Het bedrag van de laatste aflossing is het bedrag van de regelmatige aflossing 
+ de balans na N malen aflossen. 

Voorbeeld: 

Pieter heeft ƒ 6000,00 geleend tegen 5%, als hij nu vijf jaar ƒ 1000,00 aflost 
en hij besluit het restant ineens af te lossen, wat moet hij dan ineens betalen? 



LAATSTE AFLOSSING UAN EEN LENING 

wssssssssm mssssmssssssm smssm 

Bedrag van aflossing 
Bedrag van lening 
Aantal ja ren 
Jaarlijks rente pet. 

Aanta i a f lossingen ip/ j) 
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10 REM *************************** 
** LAATSTE AFLOSSING ** 
** VAN EEN LENING ** 



^ ^ ^ ^ iLi tb ^ ^ ^L* ^ |Li fb ^ yLi df dLi il» |b ^ ^ di ^ 

T T T T t T t ^ T T tTt'Tt'T^T^TT ^ ^ ^ ^ ^ ^ 



20 CLS:WIDTH 40:COLOR 15,1,1: KEYOFF 
30 PRINT" LAATSTE AFLOSSING VAN EEN LE 
NING" 

40 PR I NT : PR I NT " %%%%%%%%%%%%%%%%%%%%%%%%% 



%%%%%%%%%%%%%% " : PR I NT 

50 INPUT "BEDRAG VAN AFLOSSING: ";R 

60 PRINT 

70 INPUT "BEDRAG VAN DE LENING: ";P 
80 PRINT 

90 INPUT "AANTAL JAREN : ";J 

100 PRINT 

110 INPUT" JAARLIJKS RENTEPCT . : ";I 
120 PRINT 

130 REM *************************** 



** VAN PROCENTEN ** 

** NAAR DECIMALEN ** 



Af (b df ^ |L ^ «b dj ^ ^ yL (b yL yb d) df 

* ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

140 1=1/100 

150 INPUT" AANTAL AFLOSSINGENCP/J) : " ;N 
160 B0=P 

170 REM *************************** 
^BEREKEN ALLE BETALINGEN** 

** EN MAAK DE BALANS OP ** 
*************************** 
180 FOR Y= 1 TO N*J 
190 REM *************************** 

** AFRONDEN V/D BETAALDE ** 

** RENTE ** 

^ ^ ^ yL yb ^ yL yb ^ yi| dl ^ dl ^ yb dl ^ ^ ^ ^ ^ ^ 

^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

200 U=INT< <B0*I/N)*100+ .5>/100 
210 A=R-U 
220 B0=B0-A 
230 NEKT Y 

240 REM *************************** 

** BEREKEN DE LAATSTE ** 

** AFLOSSING, DAARNA ** 

** AFRONDEN EN PRINTEN. ** 

^ T* ^ ^ ^ x ^ X V X #p T ^ T ^ tP T X X T ^ x x x 




250 PR I NT : PR I NT " %%%%%%%%%%%%%%%%%%%%%%%% 
%%%%%%%%%%%%%%% " : PR I NT 
260 PRINT"LAATSTE AFLOSSING -F1 . " ; INT< <R 
+B0)*100+.5>/100 

270 LOCATE 0,21:PRINT" NOG EEN BEREKENIN 
G (Ja/Nee)" 

280 Q$=INKEY$:IF Q***" THEN 280 
290 IF Q$="J" OR Q$== " j " THEN RUN 
300 IF Q$="N" OR Q$* H n" THEN END 
310 GOTO 280 
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Leningen 4: Berekenen van de looptijd 
van een lening 



Dit programma berekent voor U de looptijd van een bepaalde lening. U moet 
daartoe de volgende gegevens invoeren! 

- Het geleende bedrag 

- Het aflossingsbedrag 

- Het aantal aflossingen per jaar en 

- De nominale rente 

De berekening geschiedt dan met de formule: 

J = -((LOG(1-(Px(I/100))/(NxR)/((LOG(1 + I/100/N)xN)) 
waarbij: J = Aantal jaren dat de lening zal lopen 
P = Het geleende bedrag 
I = De nominale intrest 
N = Aantal aflossingen per jaar 
R = Bedrag van de periodieke aflossing 



Voorbeeld: 

De Familie Te Kort besluit ƒ 15.000,00 te lenen tegen 11,5% rente. Ze betaalt 
per maand ƒ 450,00 terug. Hoelang duurt de aflossing? 



LOOPTIJD URN EEN LENING 


Bedrag van aflossing : 450 


Bedrag van lening 


: 1500Ö 


Jaarlijks rente pet. 


: 11.5 


Aantal aflossingen lp/ 


j) : 12 


Looptijd = 3.4 jaar 




Nog een berekening ? 


• Ha of Bflee) 
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10 REM ******* ******** * ********* 

** LENINGEN 4 ** 

^ ^ ^ *p ^ ^ T* * ^ ^ ^ ^ x T* * X X X X x ^ X X X X 

20 CLS.'COLOR 15,1,1 J WIDTH 40 iKEYOFF 
30 PRINT" LOOPTIJD VAN EEN LENING" :PR 
INT 

40 PR I NT " %%%%%%%%%%%%%%%%%%%%%%%%%X%%%%% 
%%%%%%%%%" : PR INT 

50 INPUT "BEDRAG VAN AFLOSSING i'j R 
60 PRINT 

70 INPUT"BEDRAG VAN LENING :";P 

80 PRINT 

90 INPUT" JAARLIJKS RENTEPCT . ;I 
100 PRINT 

110 INPUT"AANTAL AFLOSSINGEN P/Jf";N 
120 PR I NT : PR I NT " 

%%%%%%%%%%%%%%%%" 

130 PRINT 

150 REM **************************** 



** ** 
** RENTE OMZETTEN VAN ** 
** PROCENT NAAR DECIMAAL ** 

160 1*1/100 

170 REM **************************** 



** 


BEREKEN NU DE 


** 


** 


LOOPTIJD 


«* 


** 


D.M.V. DE FORMULE 


** 



X x x x x x x x x x x x ^ x * x x x x x x x X x X x X 

175 Jl-LOGC 1-(P*I)/<N*R?) 

180 J2=L0GU + I/N)*N 
185 J a ~< J1/J2) 

190 PR INT "LOOPTIJD = 

200 PRINT USING"##.# JAAR" \ J 

210 LOCATE 0,21 i PRINT" NOG EEN BEREKEN 

ING Ja/Neé ? " 

220 Q#*INKEY#:IF Q$*"" THEN 220 
230 IF Q«*"J" OR THEN RUN 

240 IF Q«0"N" AND Q$<>"h" THEN 220 
250 END 




Leningen 5: Berekenen van de nominale 
rente op een lening 



Dit programma berekent voor U de nominale rente die U moet betalen op een 
lening. Tevens kunt U de vele aanbiedingen, die er voor leningen in de dagbla- 
den verschijnen, ontrafelen. 

U moet daartoe over de volgende gegevens beschikken: 

- Het te lenen bedrag 

- De totale looptijd 

- Het aantal aflossingen per jaar 

- Het periodieke aflossingsbedrag 

De berekening vindt plaats met de zgn. benaderingsmethode. Om de werking 
van de methode te kunnen volgen zijn er extra REM-statements opgenomen. 



Voorbeeld: 

In de krant vonden we volgende aanbieding: 

U kunt ƒ 5.000,00 lenen en U betaalt terug: 60 maandelijkse termijnen van 
ƒ 113,00. 

Wat is nu het werkelijke rentepercentage, dat U moet betalen? 



RENTE PCT. OP EEN LENING (P/J) 



Bedrag van lening : 5000 

Ra n t a L a f l o s s i n g e n ( p / j ) : 12 
Bed r a g v a n a f l o s s i n g : 1 13 

Aantal ja ren :5 



Ja a r l i j k s rente p c t * = 1£ - 699 % 



Nu g een be r e k e n i n g (Ba o f He e ) 
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10 REM x ********************* *#* 

** LENINGEN 5 ¥* 

#* BEREKENEN NOMINALE *¥ 

** RENTE VAN ’N LENING #* 

^ /p ^ )p ^ ^ ^ T* ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

20 CLS'WIDTH 40:COLOR 15,1,1 rKEYOFF 
30 PRINT"RENTE PCT . OP EEN LENING CP/J)" 
40 PR I NT : PR I NT " %%%%%%X%%%%%%%%%%%%XXX%%% 
XXXXXXXXXXXXXX " : PR I NT 
50 INPUT "BEDRAG VAN LENING :";P 

60 PRINT 

70 INPUT "AANTAL AFLQSSINGENCP/J) : " ;N 
80 PRINT 

90 INPUT "BEDRAG VAN AFLOSSING :";R 
100 PRINT 

110 INPUT"AANTAL JAREN i";J 

120 REM ** NEEM EEN RENTE VAN 10 % ** 

#* OM TESTEN TE BEGINNEN ** 

130 1*10 

140 REM ** BEREKEN DE REGELMATIGE *# 

*# AFLOSSING MET GEBRUIK ¥* 



** VAN HET GEGOKTE PCT, ** 
150 R1*CI*P/N)VC1-1/<<I/N+1)"<N*J))> 
160 REM ** AFLOSSING AFRONDEN ¥* 

170 Rl*INT<Rl¥100+.5)/100 
180 REM ** 13 IS OM HET RENTEPCT . ** 

** AF TE SLUITEN. ** 

190 I3*ABSCI~I2>/2 

200 REM ** BEDAAR DIT GETAL ** 

210 12*1 \ 

220 REM ** VERGELIJK HET BEREKENDE ** 

¥# BEDfeAG CRI) MET HET ** 

¥* GEGEVEN BEDRAG CR) ** 



230 REM *#*¥************¥****¥******* 
** ALS ZE GELIJK ZIJN , DAN ** 
*¥ ZAL HET LAATSTE GEGOKTE ** 
#¥ GETAL ONGEVEER HETZELFDE»* 
*# ZIJN ALS DE REGELMATIGE ¥* 
** AFLOSSING. ** 

240 IF R1*R THEN 350 




250 IF R1>R THEN 310 

260 REM ** AL3 RKR DAN ZAL HET ** 

** RENTEPCT, HOGER ZIJN DAN ** 

** DE LAATSTE GOK. ** 

270 1*1+13 

280 REM ************ ** ** **** ********* 

** OPNIEUW TESTEN MET EEN M 
** NIEUW GEGOKT GETAL ** 

^ T 7* T ^ T ^ T T T T T T T * v T ® T ^ ® ® ^ ^ ^ ^ ^ ^ V 

290 GOTO 170 

300 REM ***************************** 

** ALS R1 >R DAN ZAL HET ** 

** RENTEPCT. LAGER ZIJN DAN ** 

** DE LAATSTE GOK ** 

***************************** 

310 1=1-13 

320 REM ***************************** 

** OPNIEUW TESTEN MET EEN ** 

** NIEUW GEGOKT GETAL *# 

330 GOTO 170 

340 REM ***************************** 

** BEREKEN DE RENTE NAAR ** 

** NORMALE GROOTTE, AFRONDEN** 

** EN PRINTEN ** 

***************************** 

350 I=<CINT(<I*1000)*100+.5))/100)/1000 
360 PR I NT : PR I NT " %%%%%%%%%X%%%%%%%%%%%%XX 

xxxxxxxxxxxxxxx " ; pri nt 

370 PR INT "JAARLIJKS RENTEPCT .* "{ 1*100; " 
% " 

380 LOCATE 0 ,21 ‘PRINT*’ NOG EEN BEREKENIN 
G (Ja/Nêö) " 

390 Q$*INKEY$:IF Q**"" THEN 390 
400 IF Q#=" J" OR THEN RUN 

410 IF Q««"N" OR Q$«"h" THEN END 
420 GOTO 390 
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Leningen 6: Berekenen van het 
openstaand bedrag van een lening 



Dit programma berekent voor U het bedrag, dat nog openstaat van een lening, 
nadat U reeds meerdere malen heeft afgelost. 

Het bedrag dat berekend wordt, is het aflossingsbedrag, dat U moet betalen 
als U de lening in een keer wilt aflossen op het moment van berekening. 
Wacht U een aflossingstermijn, dan komt er uiteraard weer rente bij. 

Voorbeeld: 

U heeft ƒ 8000,00 geleend tegen 17,2% rente. U lost maandelijks ƒ 200,00 af. 
Wat staat er open van deze lening, nadat U reeds 4 jaar en 10 maanden heeft 
afgelost? 



OPENSTflftND BEDRRG urn 


EEN LENING 


Bedrag van aflossing 


: 20Ö 


Bedrag van lening 


: 3000 


Aantal a f lossingen (p/ 


j ) : 12 


Ja a r 1 i j k s r ente p c t . 


: 17.2 


In welk jaar was 
de laatste a f i ossi n g 


: 4 


De hoeveelste aflossing 
was dat in dat ja ar : lö 


... 

Opênstaand bedrag =F i 24-96.17 
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10 REM *************************** 

** OPENSTAAND BEDRAG ** 

** VAN EEN LENING ** 

'L X ^ iL* ^ X (L ^ X Jjj d» X J/ *X* ^ tij ^ df 

* ^ ^ ^ ^ ^ <p ^ ^ ^ »p ^ ^ 

20 CLS ; WIDTH 40:COLOR 15.1,1 :KEY0FF 
30 PRINT" OPENSTAAND BEDRAG VAN EEN LE 
NING" 

40 PR I NT : PR I NT " %%%%%%%%%%%%%%%%%%%%%%%%% 
%%%%%%%%%%%%%% " : PR I NT 
50 INPUT "BEDRAG VAN AFLOSSING: ";R 
60 PRINT 

70 INPUT "BEDRAG VAN DE LENING: ";P 
80 PRINT 

90 INPUT" AANTAL AFLOSSINGENCP/ J) : " ;N 
100 PRINT 

110 INPUT" JAARLIJKS RENTEPCT . : ";I 
120 PRINT 

130 REM *************************** 

** VAN PROCENTEN ** 

** NAAR DECIMALEN ** 

^ d> «L ^ ^ Xl ^ X df d* di |L d? 4^ d d* d 1 d d d d d d 

fp -T» •f't /p* <P ^ ^ ^ lf* ^ ^ ^ ^ 4^* ^ *1 

140 1=1/100 

150 INPUT" IN WELK JAAR WAS 

DE LAATSTE AFLOSSING :";J 

160 PRINT 

170 INPUT "DE HOEVEELSTE AFLOSSING 

WAS DAT IN DAT JAAR :";N1 

180 B0=P 

190 REM *************************** 
**BEREKEN ALLE BETALINGEN** 

** EN MAAK DE BALANS OP ** 

d d d d d d d d d d d‘ d d d d d d d d d d d d d d d d 
^ T T* T T T T T * T T T’ T^T^rTTT^^^T* * * T* 

200 FOR Y= 1 TO N*(J-n+Nl 

210 REM *************************** 

** BEREKEN DE RENTE PER ** 

** AFLOSSING ** 

^ ^ ^ ^ ^ ^ *T* t ^ ^ ^ t* T T ^ T t ^ T* T' ^ 
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220 I1=INT<<B0*I /N) * 100+ . 5) / 100 
230 A*R-I1 
240 B0=B0~A 
250 NEXT Y 

260 REM fl#**#******#****#**!^**#**# 

** BEREKEN OPENSTAAND ** 

** BEDRAG . DAARNA ** 

*# AFRONDEN EN PRINTEN. ** 

***** :******* fl#***##*######* 

270 PR I NT : PR I NT " %%%%%%%%%%%%%%%%%%%%%%%% 

%%%%%%%%%%%%%%% " : PR I NT 

280 PR I NT " OPENST A AND BEDRAG =F1.";INT<B0 

*100+.5>/100 

290 LOCATE 0,21: PRINT" NOG EEN BEREKEN IN 
G < Ja/Nee?" 

300 Q$=INKEY$ : I F Q$*"" THEN 300 
310 IF Q$=" J" OR Q$= " ] " THEN RUN 
320 IF Q$="N" OR Q$="n" THEN END 
330 GOTO 300 
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HYPOTHEEK- 

AFLOSSINGSTABEL 



Met dit programma krijgt U van een hypotheek een compleet overzicht in ta- 
belvorm over de betaalde rente per aflossingsperiode alsmede het nog 
openstaande bedrag. Daarnaast wordt per jaar een overzicht gegeven van de 
in dat jaar betaalde rente en werkelijke aflossing. 

Voorbeeld: 

U heeft een aardig optrekje op het oog. U had al zo lang zin in een eigen dak 
boven Uw hoofd en U besluit het na rijp beraad met Uw vrouw toch maar 
te kopen, want de rente is nog steeds aftrekbaar en daarmee rekening houdend 
is dit voor U een haalbare kaart. 

U had ook nog een spaarcentje achter de hand en U moet daarnaast een HY- 
POTHEEK afsluiten van ƒ 135.000,00 tegen 8,75% (met gemeente garantie). 
De looptijd is vastgesteld op 30 jaar. Hoe ziet de aflossingstabel er uit? 



Bed r a g ven i en in 9 

R £ fi t £ 

Lu öP t i j d in j 3 f £ n 
h f i o s 5 i n g e n 



F l 135QÖ0 
3.75 S 
30 

F l 1062.05 



Ren te 



1 


984-, 33 


77 . 67 


134922.33 


2 


983 . 81 


73.24 


134344.09 




983 . 24 


73.81 


134765 . 28 


4 


982 , 66 


79 . 39 


134685 . 89 


5 


982 . 03 


79 . 97 


134605.92 


6 


931.5 


80.55 


134525.37 


7 


980.91 


31.14 


134444 . £3 


3 


930.32 


81.73 


134362.5 


9 


979 . 73 


32.32 


134280. 18 


10 


979 . 13 


32.92 


134197.26 


11 


973 , 52 


83.53 


134113.73 


12 


977.91 


34 . 14 


134029 . 59 






1 


117 


74. 19 


970.41 
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Bedrag van 


lening 


: F L 135000 


Rente 




: 3.75 % 


Looptijd in 


j a r e n 


: 30 


Aflossingen 




:F L 1062.05 


s m 




ëhh 


IMB 


1 


312.64 


749.41 


42127 . 43 


2 


307.16 


754.37 


41372 . 56 


3 


301.67 


760 . 36 


40612 . 16 


4 


296. 13 


765.92 


39846 . 26 


5 


290 . 55 


771.5 


39074 . 76 


6 


234.92 


777. 13 


38297 . 63 


7 


279.25 


732.3 


37514 . 33 


S 


273 . 55 


733.5 


36726 . 33 


9 


267 . 6 


794.25 


35932 . 08 


10 


262 


300.05 


35132.03 


11 


256. 17 


305.33 


34326. 15 


12 


250 . 29 


311.76 


33514 . 39 


HEEK 


I33ÏH3 




27 


3332. 15 


9362 . 45 



Bedrag van 
Rente 


lening 


: F 1 135000 

: 8,75 V. 


LOOP tijd in 


j a r e n 


: 30 


Af lossingen 




: F 1 1062.05 


m ramewMM 


EOM 


aaHiH 


1 


38.62 


y 7o ■ 4 O 


11179.73 


2 


31.52 


980.53 


10199.2 


3 


74.37 


937 . 63 


9211.52 


4 


67.17 


994.83 


82 16 . 64 


5 


59.91 


1002. 14 


7214.5 


6 


52.61 


1009.44 


6205.06 


7 


45.25 


1016.8 


5188.26 


8 


37.33 


1024.22 


4164 . 04 


9 


30 • 


1031.69 


3132.35 


10 


SS. 84 


1039.21 


2093. 14 


11 


15.26 


1046 . 79 


1046.35 


12 


7.63 


1046 . 35 


0 


Laatste aflossing 


Fi. 1053.93 


BEBG 


laaam 


SBBEBEEH 


30 


583.37 


12153. 16 



\1 





10 REM ****************! ********** 



** 




** 


** 


HYPOTHEEK- 


** 


** 


AFLOSSINGSTABEL 


** 


** 




** 



^ t 5p ^ ^ )p t t ^ v 3H^^3pJ^^v3^JpJp*J|E ^ ? Jp t 



20 CLS : WIDTH 40:COLOR 15,1,1 :KEYOFF 
30 PRINT" HYPOTHEEK-AFLOSSINGSTABEL" : 
PRINT 

40 PRINT " %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
%%%%%%%%" : PR INT 

50 INPUT"BEDRAG REGELM. AFLOSSING 
60 PRINT 

70 INPUT "LOOPTIJD IN JAREN 
80 PRINT 

90 INPUT "BEDRAG VAN HYPOTHEEK 
100 PRINT 

110 INPUT" JAARLIJKS RENTEPCT . : ";I 

120 PRINT 

130 REM ************************** 

*# VAN PROCENT NAAR DEC.** 



" ;R 
* ;J 

" ;P 



^ * if If* ^ T 

140 1*1/100 

150 INPUT" AANTAL AFLOSSINGEN <P/J): ";N 
160 PRINT 

170 INPUT"VANAF WELK JAAR PRINTEN : " ,*X 
180 PRINT 

190 REM ************************** 

** PRINTEN VANAF BEGIN ** 

** VAN EEN JAAR ** 

************************** 

200 X»INT(X) 

210 REM ************************** 



** 




** 


** 


INITIALISEREN VAN 


** 


** 


HULPVARIABELEN 


** 


** 




** 


************************** 



220 Cl-0 : 12*0 : 13*0 
230 NleN:K*0:Q»5 
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240 B0*P:A1*0:A2*0 

250 REM #####**# ##**#**#*##***#*** 

** LOOPTIJD MINDER DAN #* 

*# 1 JAAR ? ** 

****** txxt ***** ******** tt* 

260 IF INT < J>< 1 THEN 920 

270 REM ¥#*********#¥*¥#**###*#### 

¥* EEN FOR-NEXT LOOP *# 

** VOOR ELK JAAR *# 
************************** 

280 FOR Y*1 TO INTCJ) 

290 REM ****W******************** 

** AL BEGINNEN MET HET ** 

** PRINTEN ? #* 

************************** 

300 IF J<X THEN 410 
310 IF K*1 THEN 410 
320 K=1 
330 CLS 

340 REM *#*¥ *** ******************* 

#* PRINTEN VAN DE KOP *¥ 
************************** 

350 PR INT "HYPOTHEEKBEDRAG :";USING"F1 

#######.##" ;P 

360 PR INT "RENTE :";I*100;" 



370 PR INT "LOOPTIJD IN JAREN 
380 PRINT "AFLOSSINGEN 
####.##" {R 

390 PR i NT " / 
%%%%%%%%%" 



< # * J 

i*;USING*Fl 



r o A /© /o /b A» A> /* /» /o /o 



400 PRINT" NO: RENTE AFLOSS. BALA 

NS" 

410 FOR U*1 TO NI 

420 REM *#**¥##¥*##*****¥##******* 



** BEREKEN DE BETAALDE ** 
** RENTE OVER DEZE ** 
** AFLOSSING EN PRINTEN *¥ 



************************** 

430 Il=INT(<B0*I/N)#100+.5>/100 




440 REM *** ** * ***** * * ******** * *** * * * 
** TEL HET AANTAL TOT NU ** 
** TOE GEDANE AFLOSSINGEN ** 

450 Cl-Cl+1 

460 REM **************************** 
** BEREKEN HET BEDRAG DAT ¥* 
** IS AFGELOST IN DEZE ** 
** PERIODE ** 

470 A*R-I1 

480 REM **************************** 
** DE AFGELOSTE BEDRAGEN ** 
** OPTELLEN ** 

\L* 4 1 4* 4 4 

Tttt'Tt^pTttTtTt , tt , tttTtTt 1 TT T t t 

490 A1=A1+A 

500 REM **************************** 
** BEREKEN NU DE BALANS ** 

510 B0=P-A1 

520 REM **************************** 
** DE LAATSTE AFLOSSING ? ** 
** ZO JA, BEREKEN DEZE DAN ** 

^ y T "T 

530 IF Cl <>N*J THEN 590 
540 R=R+B0 
550 A=A+B0 
560 A1=A1+B0 
570 80=0 

580 REM **************************** 
** TEL DE TOT NU TOE ** 

** BETAALDE RENTE OP ** 

**************************** 
590 12=12+1 1 

600 REM **************************** 
** TEL DE IN DIT JAAR ** 

** BETAALDE RENTE OP ** 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

610 13=13+11 
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620 REM ****%****************%****■** 

** TEL HET IN DIT JAAR ** 

** AFGELOSTE BEDRAG OP ** 

^ ^ ^ ^ ^ ^ ^ ^ ^ ^ j|jt ^ ^ j|^ ^ ^ jjj ^ ^ j|^ ^ ^ ^ ^ ^ 

630 A2 SS A2+A 

640 REM )m**n#!m:m************** 

** BEGINNEN MET PRINTEN ? ** 

** ZO JA, ZET DAN DE ** 

** BEREKENDE WAARDEN IN *# 

** EEN TABEL. *# 

*###*#***#; is****#**#*#####**# 

650 IF Y<X THEN 680 

660 Q-Q+ltIF Q>21 THEN GOSUB 1030 

670 PRINT U ; : PR INT T AB < 4 ) ; US I NG " #### . ## " 

; 1 1 ; iPRINT TABC15) jUSING”#### ; INT<A# 

100+.5)/100; 'PRINT TABC25) ;USING"###### . 

##” ;INT<B0*100+. 55/100 

680 NEXT U 

690 REM ##**#**# **** *##¥*#* #*##** #*# 

** LAATSTE AFLOSSING ? ** 

** ZO JA , DAN AFRONDEN ** 

*¥ EN PRINTEN *# 

^ ^ ^ ^ ^ ® ^ ^ t ^ ^ ^ ^ ^ t ^ ^ ^ ^ x 

700 IF C10N*J THEN 750 

710 Q=Q+4 S 1 F Q>21 THEN GOSUB 1030 

720 PRINT 

730 PRINT” LAATSTE AFLOSSING Fl: " ;USING 

”#####.##” ;INT<R*100+. 55/100 

740 GOTO 950 

750 IF Y<X THEN 840 

760 Q*Q+4:IF Q>21 THEN GOSUB 1030 

770 PRINT 

780 PRINT” JAAR RENTE AFGELOST" 

790 GOTO 810 

800 IF YMNTU+15 THEN Y*INT< J+l ) :K*1 
810 PRINT Y; SPRINT TABC 105 jUSING”##### .# 
; 13; SPRINT TABC205 ;USING"#####.##” ;A2 
820 PRINT 

830 REM ******************$********* 

¥* LOOPTIJD AFGELOPEN ? *# 

¥#*#**##****#*#*****###*#*## 
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840 IF Y> J THEN 950 

850 REM **************************** 

* EEN AANTAL HULPVARIABELEN* 

* OPNIEUW INSTELLEN * 

* VOOR HET VOLGENDE JAAR * 

»i)i iL iLt >L» *Li ^ ^ ^ kL ^ ^ J. dj wL d, tL d. ^ »j< 

^T» ^ ^ t 1 ^ *p * ^ ^ ^ ^ ^ ^ ^ ^ ^ 

860 13=0 
870 A2=0 
880 NEXT Y 

890 REM *******************! ie******** 

** PRINTEN VAN EEN BEPAALD** 

** JAAR ? ** 

^ %L> ^ d; ^ d* ^ Jj dj ^ ^ ^ > L d/ ^ d| ^ »L» ^ 

900 IF J=Y THEN 950 

910 REM **************************** 

** BIJSTELLEN VAN DE ** 

** VARIABELEN OM EEN ** 

** BEPAALD JAAR TE PRINTEN** 

^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ j|^ ^ ^ ^ 

920 N1=(<J-INT(J))*12)/12*N 
930 Y=Y+1 
940 GOTO 300 

950 PRINT" JAAR RENTE AFGELOST" 

960 IF YHNTCJ+l) THEN Y=INT<J+1) 

970 PRINT Y ; : PRINT T AB < 1 0 ) ; US I NG " ##### . # 
#" ; 13: : PRINT TABC20) ; USING"##### . ##" ;A2 
980 LOCATE 0,22: PR INT" NOG EEN BEREKEN IN 
G ? (Ja/Nee) " 

990 Q$=INKEY$ : I F Q$="" THEN 990 
1000 IF Q$=" J" OR Q$=" 1 " THEN RUN 
1010 IF Q$="N" OR Q$="n" THEN END 
1020 GOTO 990 

1030 LOCATE 0,22: PR INT" TOETS >RETURN< V 
OOR VOLGENDE PAGINA" 

1040 Q$=INKEY$ : I F Q$="" THEN 1040 
1050 IF ASC<Q$)<>13 THEN 1040 
1060 0=6 
1070 CLS 

1080 PR INT "HYPOTHEEKBEDRAG :";USIN<3"F 

1 #######.##" ;P 




: " ; I * 1 00 ; 



1090 PRINTREIMTE 
%" 

1100 PR INT "LOOPTIJD IN JAREN :";J 
1110 PR INT "AFLOSSINGEN :";USING"F 

1 ####.##" ;R 
1120 PRINT" 

%%%%%%%%%%" 

1130 PRINT" NO: RENTE AFLOSS. BAL 

ANS" 

1140 RETURN 
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AFSCHRIJVEN 



Afschrijvingspercentage 

Met dit programma berekent U precies het afschrijvingspercentage van een 
bepaalde aankoop. 

De formule voor de berekening is: A = 100 x (1 - (T/P) ! (1/J)) 

waarbij: A = Afschrijvingspercentage 
P = Aankoopsprijs 
T = Restwaarde na J jaren gebruikt 
J = Aantal jaren in gebruik 



Voorbeeld: 

Constructiebedrijf JANSEN BV heeft in 1972 een puntlasmachine gekocht 
voor ƒ 20.000,00 en de machine na 12 jaar gebruik verkocht voor ƒ 1.850,00. 
Wat is het afschrijvingspercentage geweest voor deze machine? 



AFSCHR I JU INGS -PERCENTAGE 

ftan Koops prijs -.2000® 

Ue f K O O p s prijs : 1 85 0 

Aan t a l j are n : '1 £ 

H f S 0 h f i j V i H 9 S pet. = 17 .994 X 



No 9 een berekening ? (Ha of Slee) 
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10 REM ¥*#*****¥*¥*#*###*****#** 

#* AFSCHRIJVEN 1 #¥ 

f $ ** 

#¥ HET AFSCHRI JVINGSPCT## 

20 CLS'COLOR 15,1,1 !WIDTH 40 :KEYOFF 
30 PRINT" AFSCHRIJVINGSPERCENTAGE" 

: PR INT 

40 PR i NT " numnnmmmmmmm 

: PR INT 

50 INPUT"AANKOOPSPRI JS i";P 

60 PRINT 

70 INPUT "VERKOOPSPRIJS !\‘T 

80 PRINT 

90 INPUT "AANTAL JAREN GEBRUIKT :";J 
100 PR I NT : PR I NT " 

110 PRINT 

120 REM *¥*K^#*¥K<*##****###¥#*¥###*¥ 

Kt* ¥* 

¥1 BEREKEN NU HET ¥# 

¥ ¥ AFSCHR I JV I NGS-PERCENTAGE## 

*¥ D.M.V. DE FORMULE *# 

130 A»i 00 *u~a/pru/j)> 

140 PRINT" AFSCHRIJVINGSPCT , * 

150 PRINT USING"### .## %" ;A 

160 LOCATE 0,21 ‘PRINT" NOG EEN BEREKEN 

ING Ja/Nee ? " 

170 Q$*INKEY$:IF Qf*"" THEN 170 
180 IF Qf*"J" OR Q$*"1" THEN RUN 
190 IF Qf <>"N" AND Q4K>"h" THEN 170 
200 END 




Afschrijvingsbedrag 



In tegenstelling tot het voorafgaande programma berekent dit programma het 
bedrag dat jaarlijks wordt afgeschreven op een aankoop. 

De formulie hiervoor is: A = P x I x (1-1) t (J-l) 

waarbij: A = Afschrijvingsbedrag 
P = Aankoopbedrag 
I = Afschrijvingspercentage 
J = Aantal jaren van afschrijving 



Voorbeeld: 

Jacques kocht een auto van ƒ 18 . 890 , 00 . Hij schrijft per jaar 21 % af. Wat zijn 
de afschrijvingsbedragen per jaar gedurende de eerste drie jaren? 



ft F 5 C H R I J U I N G 5 -BEDRAG 

mgsemssswm m mmms m sasaÊam 

Ran Koops prijs : 18390 

h f $ c h r i jv i ngs -per een tage : 21 
uei.k jaar .1 



Hf'schr i J v i n g = F L 3966.9 



Welk ..an.de r _ ja a r .? US1=ST_QP.REN) 
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10 REM ************************* 
** AFSCHRIJVEN 2 ** 



** ** 
** AFSCHRIJVINGSBEDRAG *# 

JUJtcjfcSIt*******#***!*:#*****»** 



20 CLS iCOLOR 15,1,1 : WIDTH 40 :KEYOFF 
30 PRINT" AFSCHRIJVINGS-BEDRAG" :PRI 

NT 



40 PR I NT " %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



%%%%%%%%%" : PR INT 

50 I NPUT " AANKOOPSPR I JS :";P 

60 PRINT 

70 INPUT "AFSCHRIJVINGSPCT . :";I 

80 REM »******#**************¥* ***** 
** PERCENTAGE OMZETTEN VAN ** 
** PROCENT NAAR DECIMAAL ** 
**##! ************************* 



90 1=1/100 
100 PRINT 

110 INPUT"WELK JAAR :";J 

120 IF J=0 THEN 210 

130 PRINT : PR I NT " %X%X%%%%%%%%%%%%%%%%%%%% 
%%%%%%%%%%%%%%%%" 

140 PRINT 

150 REM **************************** 

$ # 

** BEREKEN NU HET ** 

** AFSCHRIJVINGS-BEDRAG #¥ 

** D.M.V- DE FORMULE ** 
**************************** 



160 A=P*I*U-I)~<J-1) 

170 PRINT" AFSCHRIJVING = "i 

180 PRINT US I NG " F 1 . #####.## ";A 
190 LOCATE 0.21: PR INT" WELK ANDER JAA 

R (0= STOPPEN) 

200 LOCATE 0.9: GOTO 110 

210 LOCATE 0.21: PRINT" NOG EEN BEREK 

ENING < Ja/Neé) 

220 Qf=INKEY$:IF Q$*"" THEN 210 
230 IF Q$*"J" OR Qf = " ] " THEN RUN 
240 IF Q$<> "N" AND Q$<>"h" THEN 210 
250 END 
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Restwaarde 



Dit programma berekent de restwaarde van een produkt nadat gedurende een 
aantal jaren een bepaald percentage is afgeschreven. 

De berekening wordt gedaan met de formule: R = (Px(l-I))! J 

waarbij: R = Restwaarde 

P = Aanschafsprijs 

I = Afschrijvingspercentage 

J = Aantal jaren dat er afgeschreven wordt 



Voorbeeld: 

Jo-Anne kocht een HiFi-installatie voor ƒ 950,00. Wat is de waarde van de 
installatie na 2 jaar bij een afschrijvingspercentage van 25%? 



RESTWAARDE 

fian koops prijs .950 

Rfschrijvings pet. : 25 
Santa l jaren : 2 

Restwaarde = Ft 534. 3S 



finder aantal, jaren? (IS=5T0PPEN) 




10 REM ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ 



¥¥ 


AFSCHRIJVEN 3 


¥¥ 


¥¥ 




¥¥ 


¥¥ 


RESTWAARDE 


¥¥ 



V ^ ^ ^ ^ ^ X* ^ ^ ^ ^ ^ ^ ^ ^ 

20 CLSiCOLOR 15,1.1 : WIDTH 40:KEVOFF 
30 PRINT" RESTWAARDE BEREKENEN" :PRI 

NT 

40 PR I NT " %%%%%%%%%%%%%%%%%%%X%%%%%%%%%%X 



: PR INT 

50 INPUT"AANKQOPSPRI JS :";P 

60 PRINT 

70 INPUT"AFSCHRI JVINGSPCT . :";I 

80 REM ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ 



¥¥ PERCENTAGE OMZETTEN VAN ¥¥ 
*¥ PROCENT NAAR DECIMAAL ** 



^ ^ ^ ^ ^ ^ ^ ^ Jp ^ Vpk rp ^ ^p ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 



90 1*1/100 
100 PRINT 

110 INPUT"AANTAL JAREN :";J 

120 IF J*0 THEN 210 

130 PR I NT i PR I NT " %%%%%%%%%%%%%%%%%%%%%%%% 
XXXXXXXXXXXXXXXX " 

140 PRINT 

150 REM ¥¥¥¥¥¥¥¥¥¥¥*¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ 



¥¥ ¥¥ 

¥¥ BEREKEN NU DE ** 

** RESTWAARDE ¥¥ 

*¥ D.M.V. DE FORMULE ¥¥ 

*¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥1 
160 R*P*<1-I)"J 

170 PR INT "RESTWAARDE * "; 

180 PRINT USINGT1. #####.## «;R 

190 LOCATE 0 , 2 1 : PR I NT " WELK ANDER JAA 

R (0= STOPPEN) 

200 LOCATE 0.9! GOTO 110 

210 LOCATE 0,21 SPRINT" NOG EEN BEREK 

ENING (Ja/Nee) " 

220 G$=INKEY$ : I F Q$="" THEN 210 
230 IF Q$*"J" OR Q$ s " j " THEN RUN 
240 IF Q$<>"N" AND Q$<>"h" THEN 210 
250 END 




ECONOMISCHE 

BESTELHOEVEELHEID 



Dit programma berekent voor U welk aantal van een bepaald produkt U moet 
bestellen om zo economisch mogelijk te werken. 

De berekening vindt plaats op basis van de jaarlijkse behoefte, de stuksprijs, 
de bestel- en opslagkosten. De computer geeft aan welke hoeveelheid U moet 
bestellen en geeft daarna een overzicht van diverse andere bestelmogelijkhe- 
den met een opsomming van de kosten voor bestellen en opslaan per bepaalde 
hoeveelheid. 

Is het niet mogelijk een bepaalde economische besteleenheid te berekenen dan 
wordt dit door de computer ook aangegeven. 



Voorbeeld: 

U heeft per jaar van een bepaald produkt 250 stuks nodig. U kunt die inkopen 
tegen een stuksprijs van ƒ 1,45. Het opslaan van dit produkt in het magazijn 
kost U ƒ 0,45 op jaarbasis. Bovendien betaald U per bestelling die U doet 
ƒ 22,50 bestel- en administratiekosten. Wat is nu het meest economische aan- 
tal dat U per keer moet bestellen? 



BEREKENING ECONOMISCHE 
BE5TELH0EUEELHEID 



GEEF UOLGENDE GEGEUENS: 

aasiaaaaBMi . 45 



QPSLRGKÖ ST E N / ST U R / JRR 



KOSTEN PEP: ORDER ; 



mwmswmmmmmBwsBSBBssm 

U MOET IBS STUKS BESTELLEN OM 
ECONOMISCH UERRNTUÜORD TE ZIJN. 



0ET5 ENTER UOÜR UERUOLC 




DJENS URN DIT PRODUCT! 



OM 104 STUKS TE BESTELLEN 
ZIJN DE KOSTEN UGOR OPSLAG EN 
BESTELLING FL.23.62 



i 1 J E RD Ë RE^GE G JEN S URN DIT PRODUCT! 



OM 156 STUKS TE BESTELLEN 
ZIJN DE KOSTEN UOQR OPSLAG EN 
BESTELLING FL.35.39 _ 



MEPPER E GE GE 'JEN 5 URN DIT PRODUCT] 



OM 208 STUKS TE BESTELLEN 
ZIJN DE KOSTEN 'JOOP OPSLAG EN 
BESTELLING FL.47.12 



lUERDËRE GEGEÏÏENS URN DIT PRODUCT] 



OM 260 STUKS TE BESTELLEN 
ZIJN DE KOSTEN UOQR OPSLAG EN 
BESTELLING FL . SS . SS 



BiMaüg 



É 'J E N 5 



U R N D IT PRODUCT 



OM 312 STUKS TE BESTELLEN 
ZIJN DE KOSTEN UOQR OPSLAG EN 
BESTELL ING FL.7Q.56 



UERl ER E GEGËUEN5 UflN DIT PRODUCT] 



OM 364 STUKS TE BESTELLEN 
ZIJN DE KOSTEN 'JOOP OPSLAG EN 
BESTELLING FL . S2 . 27 



EERDERE GEGEUENSUR'N DIT PRODUCT! 



OM 416 STUKS TE BESTELLEN 
ZIJN DE KOSTEN UGOR OPSLAG EN 
BESTELLING FL.93.9S _ 

NOG EEN BEREKENING (ÏA/fflEE) 




10 REM ************:******#*#:*****# 
** ECONOMISCHE ** 

** BESTELHOEVEELHEID ** 



^ ^ ^ ^ ^ ^ X ^ ^ *L |L ^ ^ ^ ^ ^ ^L 



20 CLS : WIDTH 40rCOLOR 15,1,1 : KEYOFF 
30 PRINT" BEREKENING ECONOMISCHE 

BESTELHOEVEELHEID" 

40 PR I NT : PR I NT " %%%%%%%%%%%%%%%%%%%%%%%%% 
%%%%%%%%%%%%%% " ; PR I NT 

50 PRINT" GEEF DE VOLGENDE GEGEVENS :" :PR 
INT 

60 INPUT" INKOOPSPRIJS PER STUK: ";SP 
70 PRINT 

80 INPUT" BENODIGD AANTAL/JAAR: " ;N 
90 PRINT 

100 INPUT" OPSLAGKOSTEN/STUK/ JAAR: ";0 
110 PRINT 

120 INPUT" BESTELKOSTEN: ";B 

130 PR I NT : PR I NT " %%%%%%%%%%%%%%%%%%%%%%%% 
%%%%%%%%%%%%%%% * : PR I NT 



140 X=<2*N¥B)/0 
150 GOSUB 380 
160 H=INT < Y) 

170 IF H-0 THEN 450 

180 PRINT"U MOET ";H;" STUKS BESTELLEN O 
M" :PRINT"ECQNOMISCH VERANTWOORD TE BESTE 
LLEN . " 

190 LOCATE 0,21 .-PRINT" TOETS >RETURN< 
VOOR VERVOLG" 

200 Q«=INKEY$:IF Q$="" THEN 200 
210 IF ASC<Q$X>13 THEN 200 
220 CLS 

230 H=H/3 :H-INT<H) 

240 R«H :N-0 



250 N=N+1 



260 H=H+R 



270 T=N/H*B+H/2*0 
280 T a =INT<T#100+ .5)/ 100 
290 IF N>7 THEN 460 

300 CLS : PR I NT " VERDERE GEGEVENS VAN DIT P 
RODUKT : " 
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310 PRINT :PRINT"OM ":H:" STUKS TE BESTEL 
LEN" 

320 PR INT "ZI JN DE KOSTEN VOOR OPSLAG EN 
BESTELLING: " :USING"##### .##" ; 
T 

330 LOCATE 0,22: PRINT" TOETS >RETURN< VO 
OR VERVOLG " 

340 Q$=INKEY$ : I F Q$="" THEN 340 
350 IF ASC(Q$> 0 13 THEN 340 
360 LOCATE 0,22:PRINT SPACE4K40) 

370 GOTO 250 

380 IF X=0 THEN Y=0: RETURN 
390 IF X>0 THEN 410 

400 PRINT :PRINT"U MAAKTE EEN FOUT BIJ HE 
T INVOEREN M":FOR V=1 TO 1500:NEXT V:GO 
TO 10 

410 Y"INT<X* .5) :Z=0 
420 W*INT<<X/Y~Y>*.5) 

430 IF W“0 THEN RETURN 
440 Y~Y+W :Z S W :GOTO 420 

450 LOCATE 0 , 15 : PRINT "DIT PRODUKT KUNT U 
NIET IN EEN BEPAALD ECONOMISCH AANTAL 
BESTELLEN h 

460 CLS : LOCATE 0,21:PRINT" NOG EEN BEREK 
ENING ? < Ja/Nee)" 

470 Q$~INKEY$ : I F Q$*"" THEN 470 
480 IF Q$="J" OR THEN RUN 

490 IF Q$="N" OR Q$="n" THEN END 
500 GOTO 470 
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BREAK-EVEN POINT 
ANALYSE 



Met dit programma berekent U bij welk verkocht aantal van een bepaalde 
produktie U de kostprijs van de totale produktie heeft terug verdiend. Dit heet 
het BREAK-EVENPOINT. Alles wat U meer verkoopt dan dit BREAK- 
EVENPOINT levert U winst op. Een ideaal programma voor hen die met be- 
paalde produktieaantallen moeten werken en graag van te voren willen weten 
bij welk verkocht aantal de produktiekosten al zijn terugverdiend. 

Voorbeeld: 

Fietsenfabriek ”De Gouden Doortrapper” besluit om een nieuw model aan 
haar assortiment toe te voegen. Dit model "SPORT 2000” wil men in een 
eerste produktierun van 10.000 stuks maken. Men heeft een reclamecampagne 
voor dit nieuwe model begroot van ƒ 80.000,00 en daarnaast is nog een bedrag 
van ƒ 20.000,00 nodig voor verpakking. De totale overhead is ƒ 100.000,00. 
De directe produktiekosten zijn inclusief materialen en arbeidsloon etc. to- 
taal: ƒ 1.500.000,00. De verkoopsprijs aan de rijwielhandel is: ƒ 295,00. 

Bij welk aantal verkochte rijwielen is men uit de aanloopkosten van dit mo- 
del? 



sammsii 



N POINT HNfiLYS 



GEEF DE UOLGEMDE GEGEUENS : 



\SEmmsmmsssmM33Êsm 



100000 

10000 

1500000 




BREAK -EUENPO INT LIGT OP: 5424- 
STUKS URN DE 10000 TOTAAL. 

BREAK -EUEN BIJ: 54.24 % 



NOG EEN ANALYSE 



BA/UBEE ?? 
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10 REM ************** ###*######** 
#* #* 

** BEREKENEN VAN HET I» 
** BREAK-EVEN POINT *# 
¥* #* 



^ V T V T ^ ^ T T* ^ ^ ^ ^ ^ ^ ^ ^ ® 

20 CLSiCOLOR 15,1,1 ïWIDTH 40 iKEYOFF 
30 PRINT" BREAK-EVEN POINT ANALYSE 

" : PR INT 

40 pR i NT " xxmmmmm%%x%%%%mmx 

%%%%%%%%" 

50 *PRINT" >> VERSTREK DE VOLGENDE GEGE 

VENS <<" 

60 PRINT 

70 INPUT" VASTE KOSTEN (OVERHEAD) :";K 
90 PRINT 

90 INPUT" AANTAL TE PRODUCEREN :";N 
100 PRINT 

110 INPUT" DIRECTE PRODUCTIEKOSTEN :";P 
120 PRINT 

130 INPUT" VERKOOPSPRIJS/STUK i";V 

140 PRINT 
150 PR I NT " 

XXXXXXXXX* : PR INT 

160 REM ¥**¥#*¥#*)M*##*#*#*#*#***¥**# 

** KOSTPRIJS PER EENHEID ** 



* !#**:n*#*#iM*#*#*#*#*¥***#*#* 

170 E-INT< ( <K+p) /N) *100+ . 5) /100 
180 W*V-E 

190 S*INT((K+F)/V+.5) 

200 PR INT "BREAK-EVEN POINT LIGT OP:";S 
210 PR INT "STUKS VAN DE ";N;" TOTAAL." 

220 PRINT :PRINT"BREAK~EVEN BIJ: "|<S/N># 
100 ;" V." 

230 LOCATE 0,21 ‘PRINT" NOG EEN ANA 

I Y9F ( Ta/Naa'3 " 

240 Q$«INKEYf : IF Q$="" THEN 240 
250 IF Q«*"J" OR Q$«"j" THEN RUN 
260 IF Q*<>"N" AND Q$<>"h" THEN 240 
270 END 




EENHEIDSPRIJS- 

BEREKENING 

Met dit programma kunt exact uitrekenen welk de beste koop voor U zal zijn. 
Dit programma rekent namelijk de prijs per eenheid uit; dit kan zijn volume, 
gewicht of aantal. 

Voorbeeld: 

U krijgt een aanbieding van merk X. Zij leveren U het produkt in verpakkin- 
gen van 500 gram tegen een prijs van ƒ 12,58 per 500 gr. Merk Y biedt U het- 
zelfde product aan in verpakkingen van 750 gram tegen een prijs van ƒ 18,68. 
Wat is voor U nu de beste koop? 

Met dit programma kunt U dat direct te weten komen. Dit voorbeeld is nog 
simpel en zelfs nog snel met de hand uit te rekenen, maar bij wat meer inge- 
wikkelde verhoudingen is het voor U een voordeel dit programma bij de hand 
te hebben. 



U E R ST R E K U O L G E N DE G E G E U E N S : 



NRRM PRODUKT U 
PRIJS PRODUKT H 
yOÜJMÉ PRODUKT ' 1 




500 



NjRRM PRODUKT 2| 
PRIJS PRODUKT 2 
UöLUME PRODUKT 



Y 

13 . 58 
750 



2.52 CENT/EENH. ' 
2.49 CENT/EENH. 

IS DE BESTE KEUS. 

NOG EEN BEREKENING ÜH/fiBEE ? 
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10 REM ******* ******************* 

** ** 

** BEREKENEN VAN ** 

** EENHEIDSPRIJZEN ** 

** ** 

************************** 

20 CLS-.COLOR 15,1,1 : WIDTH 40 :KEYOFF 
30 PRINT" EENHEIDSPRIJS PR INT 

40 PRINT" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

50 'PRINT ">> VERSTREK DE VOLGENDE GEGE 

VENS <<" 

60 PRINT 



70 


INPUT" 


NAAM PRODUKT 1 


" ;A$ 


80 


INPUT" 


PRIJS PRODUKT 1 


" ; P 1 


90 


INPUT" 


VOLUME PRODUKT 1 


" ; VI 


100 


PRINT 






110 


INPUT" 


NAAM PRODUKT 2 


JB$ 


120 


INPUT" 


PRIJS PRODUKT 2 


: " : P2 


130 


INPUT" 


VOLUME PRODUKT 2 


i " ; V2 



140 PRINT 

150 PRINT" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
%%%%%%%%%" : PR INT 

160 REM ***************************** 

** KOSTPRIJS PER EENHEID ** 
***************************** 

170 REM ***************************** 



** 




** 


** 


LET ER OP DAT U BIJ 


** 


** 


INVOEREN VAN DE 


** 


** 


VOLUME-EENHEDEN 


** 


180 REM ** 




** 



** GELIJKE SOORTEN EENHEDEN** 
** GEBRUIKT, VERGELIJK ** 
** GEEN KILO’S MET LITERS! ** 

^ ^ ^ T' ^ t» ^ ^ ^ ^ T ^ ^ ^ ^ 'p v ^ ^ ^ ^ 

190 E1«(P1/V1?*100:E2«(P2/V2)*100 
200 PRINT A$ , ; PR I NT USING"F1 ####.## 
EENHEID" ;E1 

210 PRINT B$ , ; : PR I NT USING"F1 ####.## 
EENHEID" ;E2 
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220 IF E1»E2 THEN LOCATE 0,18:PRINT "BEI 
DE PRODUKTEN ZIJN GELIJK GEPRIJSD * 

230 IF E2<E1 THEN LOCATE 0,18!PRINT Bf; w 

IS DE BESTE KEUS ":GOTO 250 
240 IF Q3S-* J" OR THEN RUN 

250 LOCATE 0,21:PRINT M NOG EEN BEREKEN I 
NG < Ja/Nee) " 

260 Q$=INKEY#: IF Q$» w " THEN 260 
270 IF Qf»" J* OR Qfa"j" THEN RUN 
280 IF Qf <>"N* AND QlO'n" THEN 260 
290 END 
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VASTE LASTEN 
BEWAKING 

Met dit programma is het nu mogelijk om per maand een gedetailleerd over- 
zicht te maken van Uw vaste lasten. Daarnaast wordt alles gecumuleerd in een 
jaaroverzicht. 

Het programma wordt volledig MENU-gestuurd. 

U dient eerst gegevens in te voeren, zodat deze later op cassette kunnen wor- 
den gezet. 

In totaal kunt U 50 rubrieken ” vaste lasten” benoemen. Veranderingen kunt 
U verwerken door eerst de niet (meer) gewenste rubriek af te voeren en daarna 
weer nieuwe gegevens in te voeren. 

Per rubriek kunt U de gegevens verder specificeren met behulp van frequentie 
(aantal malen per jaar dat er betaald moet worden), in welke maanden er be- 
taald dient te worden en of er nog een jaarafrekening komt (zoals bijv. bij gas, 
water en electriciteit). 

In het hierna gegeven voorbeeld is een vaste-lasten-bewaking gegeven van een 
huisgezin. 

Maar U kunt het programma even zo goed gebruiken voor zakelijke 
toepassingen. 
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10 rem #**###**##*##**############ 

## VASTE LASTEN BEWAKING ** 

** <01985 RON TEN BERGE ## 

## VOOR MSX AANGEPAST ## 
##DOOR;ROBERT-JAN DONKERS## 

^ ^ ® ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^r* ^ 

20 REM ######################*#### 

## INITIALISEREN ## 

30 CLS :WIDTH 40 iCOLOR 15,1,1 JKEYOFF 
40 N«<51> ,M$<51 ,12) ,G$<51 ) , J$<51 ) , I$(51 ) 
,F(51 ) 

50 FOR N*»l TO 51 

60 N$ < N ) * " # ..." 

70 NEXT N 

80 REM ########*###########*####*# 

## HOOFDMENU ## 

ft****:##***##****###**#*#*## 

90 CLS 

100 print" 

% MENU % 

% % 

% % V. 7, % 7. % % 7. % % 7. % 

110 PRINT {PRINT 

120 PRINT :PRINT" Maandoverzicht 

>= 1" 

130 PRINT :PRINT" Jaaroverzicht 

— — >« 2" 

140 PRINT:PRINT" Vaste lasten invoe 

ren — >« 3" 

150 PRINTïPRINT" Gegevens afvoèren- 

>« 4" 

160 PRINT:PRINT" Gegevens opslaan — 

— —— >« 5" 

170 PRINT:PRINT" Gegevens inladen — 

>e g" 

180 LOCATE 0 ,22 {PRINT" TOETS UW 

KEUZE IN ! " 

190 Q«*INKEY«:IF Q$«"" THEN 190 
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200 IF Q«<"1" OR Q$>"S" THEN 190 

210 ON VAL(Q$) GOTO 550,1110,220,830,127 

0,1530 

220 REM xxxxxtxix****************** 

*¥ VASTE LASTEN INVOEREN ** 

^ * T 1 ™ * T T T * T* ^ ^ T T * ^ ^ x x ^ * T 



230 CLS 

240 PRINT" VASTE LASTEN INVOEREN " 

: PR INT 



250 PRINT" 
%%%%%%%%%" : PR INT 



260 FOR N=1 TO 50: IF N$(N>="* 

" THEN 290 

270 NEXT N 

280 PR INT: PR INT" HET BESTAND IS VOL !!!! 

! ! ! " : FOR Q=1 TO 1500:NEXT Q:GOTO 90 
290 INPUT "OMSCHRIJVING : " ;Q$ 

300 IF Q$*"" THEN LOCATE 0,5: GOTO 290 
310 IF LENCQf )>16 THEN PRINT"OMSCHRI JVIN 
G TE LANG (MAX. 16) !":LOCATE 0,5:GOTO 29 
0 

320 LL*LEN<Q$> 

330 MID$<N$<N> ,1 ,LL)=Q$ 

340 PRINT 

350 INPUT" FREQUENTIE PER JAAR : ";F<N> 
360 IF F(N)>12 THEN PR INT "REKEN BEDRAG O 
M PER MAAND ! ! * :GOTO 350 
370 IF F<N)=12 THEN RESTORE : FOR 1=1 TO 1 
2 :READ A$ :M$(N , I >=A$ ïNEXT I .-GOTO 440 
380 PRINT :PRINT" IN DE MAANDCEN):" 

390 FOR T=1 TO F<N> 

400 INPUT "MAANDNR.Cl T/M 12):";Q 

410 RESTORE: FOR 1=1 TO QlREAD K$:NEXT I: 

M$(N ,T)=K$ 

420 PRINT M$(N,T) 

430 NEXT T 

440 PRINT : INPUT"TERMI JNBEDRAG :";Gf<N) 
450 PRINT : INPUT" JAARAFREKENING(0=GEEN) 

; Jf (N) 

460 IF VAL< J#<N))=0 THEN 500 
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470 INPUT" IN WELKE MAAND ? <1 T/M 12) 

I 

480 IF KI OR I > 1 2 THEN 470 

490 RESTOREjFOR F*1 TO IlREAD A$:NEXT F: 

1$ <N)*A$ 

500 LOCATE 0,22: PR INT" GEGEVENS IN ORD 

E ? (Ja/Nèe) " 

510 Q$sINKEYf:IF Qf*"" THEN 510 
520 IF Q#»"J"OR q$a"j" THEN 80 
530 IF Q*o"N" OR Qf»"h" THEN CLSjPRINT" 
VASTE LASTEN INVOEREN" :PRINT iPRINT"% 



« . 



PRINT: GOTO 290 
540 GOTO 510 



550 REM #*#*# #*#######^###1###*## 



** 




** 




VASTE LASTEN PER 




*# 


MAAND 


## 



:M*f********************** 

560 H*0:CLS 

570 PRINT" VASTE LASTEN IN EEN BEPAALDE 
MAAND " : PR INT 

580 print" xmmmxxmxxmmxxxxxxx 

% 7 .%% 7 .%%%% H : PR INT 

590 INPUT"WELKE MAAND <1 T/M 12) :"{K 
600 IF K<1 OR K>12 THEN 560 
610 RESTORE : FOR N*1 TO K:READ K$ :NEXT N 
620 CLS: LOCATE 1 6 , 0 : PR I NT " MAAND : * s Kf : PR I 
NT 

630 FOR N*1 TO 50 
640 FOR T*1 TO 12 

650 IF Nf<N)«"* " THEN 690 

660 IF Mf <N ,T)»K$ THEN PRINT N#<N);:PRIN 
T USING"F1 #####.##" ;VAL(G#<N>):M«H+VAL< 
Gf <N) ) IGOTO 680 
670 NEXT T 
680 NEXT N 
690 KOP«0 
700 FOR N*1 TO 50 
710 IF N4XN)*"# 



"THEN 760 




720 IF I$(N)OKf THEN 750 

730 IF KOP*0 THEN PRINT : PR INT "JAARAFREKE 

NING: " t LET K0P*1 

740 PRINT N$<N) ; :PRINT USING"F1 #####.## 
" ;VAL(J*<N>) :H*H+VAL<J$<N>> 

750 NEXT N 
760 PR i NT : PR i NT " 

%%%%%%%%%%%%%%% " : PRINT 

770 PRINT "TOTAAL "|:PRINT USIN 

G"F1###### .##" ;H 

780 LOCATE 0,22:PRINT" >M< =MENU >A 

< * ANDERE MAAND" 

790 Q$-INKEYf : IF Q$*"" THEN 790 
800 IF Q$="M" OR THEN 80 

810 I F Q$="A" OR Q$»"a" THEN 550 
820 GOTO 790 

830 REM ****** * #** ***** * * * * ** ***** *** * 

#* GEGEVENS UIT HET BESTAND ** 

** AFVOEREN ** 

^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ T x ^ T ^ t ^ ^ ^ ^ V ^ T T ^ 

840 CLS 

850 LOCATE 0,21:PRINT" >> M « 

* MENU" 

860 LOCATE 0 ,3 : INPUT "WAT WILT U AFVOEREN 
?" ;K$ 

870 IF Kfa"M" OR K**"m" THEN 80 
880 LL*LEN<K«) :IF LL>16 THEN 840 
890 LOCATE 0,21: PR INT SPACE$<38) 

900 FOR N*1 TO 50! IF K$*MID$(N$(N) ,1 , LL) 
THEN 930 
910 NEXT N 

920 LOCATE 0,3:PRINT K$|"ZIT NIET IN HET 
BESTAND ! " ! FOR V*1 TO 1500: NEXT V:GOTO 
830 

930 LOCATE 0 ,3 :PRINT"0M5CHRI JVING :";N*< 
N) 

940 LOCATE 0,21: PRINT" TOETS IN >W 

< «WISSEN >M< * MENU" 

950 Q$»INKEY$:IF Q$*"" THEN 950 
960 IF Q$*"M" OR THEN 80 




970 IF Q$«"W" OR Q$*"w" THEN 990 
980 GOTO 950 

990 REM ¥#*#*#**♦***#* ***** *##*****# 

^ jjc 

** GEGEVENS WISSEN *# 

** ## 

^ r* ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

1000 FOR T«1 TO 51 : IF N$<T>*"* 

* THEN 1020 

1010 NEXT T 

1020 N$<N)*N«<T-1) :N4KT-1)*N«<T) :F<N)*F< 
T-l> : FCT-1 >-F<T> 

1030 FOR M=1 TO 12 ;M*<N ,M)*M$<T-1 ,M> :M«( 
T-l ,M>*M*KT,M> :NEXT M 

1040 G$<N>*G$(T~1) :Gf(T-l>-G$<T) :J«(N)aJ 
$<T-1) :Jf<T-l?aJ«(T) 

1050 I$<N)=If<T-l> :If(T-l)al$<T) 

1060 LOCATE 4,10: PRINT" DE GEGEVENS ZIJN 
GEWIST !" 

1070 QfalNKEYf : I F Q$a"" THEN 1070 
1080 IF Q$="M" OR Q$*"m" THEN 80 
1090 IF Q$="W" OR Q$*"w" THEN 830 
1100 GOTO 1070 

1110 REM #*f *#*¥##*###*###**#*##*#**#*## 

## *# 

#* JAAROVERZICHT »* 
** ** 

t t ^ y t ? Jp 1JC ^ )(E ))! J|C f J|C J|C 3J£ 

1120 CLS 

1130 PRINT" JAAROVERZICHT" 
1140 PRINT 
1150 TT=0 

1160 FOR N«1 TO 51 
1170 H®0 

1180 IF N$<N)a"* "THEN 123 

0 

1190 H*H+<F<N)*VAL<Gt<N)))+VAL<Jf<N)> 
1200 PRINT N«<N>; ‘PRINT USING"F1 #####.# 
#" jH 

1210 TT*TT+H 
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1220 NEKT N 

1230 PRINT !PRINT« JAARTOTAAL " ; ïPRIN 

T U5ING" F 1 ######.##" i TT 
1240 LOCATE 0,22:PRINT" >>> M 

<« * MENU" 

1250 Q$*INKEY$<IF 0$**"" THEN 1250 

1260 IF Q$*«M« OR Q$*«m« THEN 80 ELSE 12 

50 

1270 REM #**# #*##*n'sm##*#**#*#* #### 

#* #* 

** GEGEVENS OPSLAAN *# 

** f # 

1280 CLS 

1290 PRINT J PR INT «MET WELKE BAUDRATE WILT 
U NAAR CASSETTE SCHRIJVEN 7 1*1200 2*24 
00 BAUD * 

1300 Q$«INKEY$ : I F Q$*«« THEN 1300 
1310 IF Q$««l" THEN BR*1:G0T0 1340 
1320 IF Q$*«2« THEN BR*2:G0T0 1340 
1330 GOTO 1300 

1340 PRINT :PRINT«GEEF NAAM VAN DE FILE i < 
MAX. 6 LETTERS) 

1350 SCREEN, , , BR 
1360 INPUT Q9 
1370 SH*«CAS:«+Q$ 

1380 PRINT«ZET CAS, RECORDER KLAAR <RECOR 
D & PLAY>« 

1390 PR INT «TOETS DAARNA RETURN VOOR SAVE 
N« 

1400 Qf*INKEY$ : IF ASC<Q*)013 THEN 1400 
1410 OPEN S# FOR OUTPUT AS#1 
1420 MOTOR ON 
1430 PRÏNT#1 ,N 

1440 FOR K=1 TO N :PRINT#1 ,N$(K) 

1450 PRINT#1 , FCK) 

1460 PRINT#1 ,G$<K) 

1470 PR I NT# 1 , I $ < K > 

1480 PRINT#1 ,N$<K) INEXT K 

1490 FOR K*1 TO N : FOR M*1 TO 12:PRINT#1, 

M$<K,M):NEXT M :NEXT K 
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1500 CLOSE #1 
1510 MOTOR OFF 
1520 GOTO 80 

1530 REM *¥*#***##*###*#***##******** 

% sjf f g 

*¥ GEGEVENS INLADEN ** 

¥¥ ¥* 

*##*###*#**#**#*##**#**#**#¥ 

1540 CLS 

1560 PRINT :PRINT"GEEF NAAM VAN DE FILE:( 
MAX. 6 LETTERS) 

1560 INPUT Q$ 

1570 S$="CAS i "+Q$ 

1580 PR INT "ZET CAS. RECORDER KLAAR (PLAY5 

H 

1590 PR INT "TOETS DAARNA RETURN VOOR LADE 
N" 

1600 Q*«INKEY$:IF ASC<QfK>13 THEN 1400 
1610 OPEN S$ FOR INPUT AS#1 
1620 MOTOR ON 
1630 INPUT# 1 ,N 

1640 FOR K*1 TO N : INPUT# 1 ,N#<K? 

1650 INPUT# 1 , F(K5 
1660 INPUT#1 ,G$<K) 

1670 INPUT#1 ,I#<K) 

1680 INPUT# 1 . N$<K) JNEXT K 

1690 FOR K*1 TO N : FOR M*1 TO 12rINPUT#l, 

MfCK.M) :NEXT M :NEXT K 

1700 CLOSE #1 

1710 MOTOR OFF 

1720 GOTO 80 

1730 DATA "JAN . " , "FES . " , "MRT . " , "APR . " , "M 
EI . " . " JUN . " , " JUL . " * "AUG . " , "SEP . " , "OKT . " , 
"NOV , " , "DEC . " 
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FAKTUREREN 



Faktureren is een simpel doch efficiënt programma, dat voor U fakturen 
maakt inclusief alle daarvoor benodigde berekeningen. Het ontwerp van de 
faktuur kunt U aan Uw eigen wensen aanpassen. Houdt bij het aanpassen re- 
kening met de volgende punten. 

1. Het adres van de klant staat op de juiste plaats voor het gebruik van stan- 
daard vensterenveloppen, verander daar dus niets aan. 

2. Dit programma gaat ervan uit, dat alle artikelen in DATA-regels zijn opge- 
nomen. De artikelnummer corresponderen met deze dataregels en wel als 
volgt: De artikelen zijn genummerd van 1001 en verder. De RESTORE op- 
dracht in regel 680 verwijst dan naar de dataregels 2250 en verder. 
Afhankelijk van het aantal artikelen moet U ook nog de regels 660 en 670 
aanpassen. 

3. In de DATA regels vult U achtereenvolgens de volgende gegevens van het 
artikel in: 

- Artikelnummer, - Artikelnaam, - Stuksprijs excl. BTW en de - BTW code 
(1 = 5%, 2 = 19%, 0 = 0%). Alles tussen de bekende aanhalingstekens. 
De computer leest alles in Strings in. 

4. In het programma is een variabele R opgenomen, deze R is de printregeltel- 
ler. Op de meeste Printers kunt U op een A4 72 regels printen. 

Daarom is de regelteller ingevoerd; heeft de regelteller een bepaalde waarde 
bereikt, dan wordt er een subtotaal gemaakt en getransporteerd naar de 
vervolgfaktuur. 

Het programma is van REM-statements voorzien om een duidelijk onder- 
scheid te maken tussen de diverse routines. 



79 




TERMINAL. SOFTWARE PUBLICATIES 



Postbus 111 

5110 AC baar ie-Nassau 

Tel. 04257-9161 



Bankrelatie : 

Kamer van Koophandel : 



Faktuurnummer : 84510 



De Gouden Doortrapper B.V. 
Pedaal laan 2 
9999 XX Fietsdorp 



Baar le-Nassau , 17 NOVEMBER 1984 



AANTAL 


ART.NR. 


OMSCHRIJVING 


PRIJS EXCL. 


BTW 


NETTO 


3 


1005 


Bankschroef 28mm 


Fl. 38.50 


1 


Fl. 


115.50 


4 


1004 


Steeksleutel 10/11 


F I . 7 . b0 


1 


Fi . 


30.40 


2 


100/ 


Schroevendraaier 4mm 


Fl. 6.19 


1 


Fl . 


12.38 


4 


1008 


Sikkels 50cm 8 st. 


Fl . 45.17 


1 


Fl. 


180.68 


3 


1001 


BOUTEN M8x30 50 st. 


Fl. 12.45 


1 


Fl . 


37.35 


20 


1003 


VERPAKKINGSDÜZEN 50 


Fl. 24.95 


2 


Fl . 


499.00 








SUBTOTAAL 1 


m 

X 

o 

I— 


: Fl . 


875.31 








BTW TOTAAL 




: Fl . 


113.63 








TOTAAL 




: Fl . 


988.94 








Kredietbeperki ng 2 


% 




19.78 








FAKTUURBEDRAG 


: Fl . + 


1008.72 



BTW 1 (5*4) : F i .18.82 BTW 2 U9%> :F1.94.81 
Betaling 8 dagen netto 
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10 REM *************************** 

Kt* ** 

** FAKTUREREN MET DE MSX Kt* 

** ** 

Uj «li Ja tl/ J< kii *AJ iL tL* il> >L -1> «Jl hL « 1> tL ■!> 4I» iL aL üi ^.Li Ji >1.» >L 

20 REM ** ALLEEN VOOR 80-KOLOMS ** 

** PRINTERS Kt* 

*************************** 

30 CLS : WIDTH 40:COLOR 15,1,1 rKEYOFF 
40 REM *************************** 

** INITIALISEREN ** 

*************************** 

50 K1=0:K2=0:T=0 

60 N=100 : REM AANTAL ARTIKELEN 

70 DIM A(N) :REM AANTAL PER ARTIKEL 

80 DIM A$(N) :REM ARTIKELNUMMERS 

90 DIM B$<N) :REM ARTIKELNAAM 

100 DIM C$<N) :REM PRIJS 

110 DIM D$<N> :REM BTW-CODE 

120 DIM E$(N> :REM AANTAL x PRIJS 

130 REM*************************** 

** UW FIRMANAAM + ADRES ** 
****#***:******************* 

140 N$«"TERMINAL SOFTWARE PUBLICATIES" 
150 0$="Postbus 111" 

160 P$- "5110 AC BAARLE NASSAU" 

170 R$« "Tel : 04257-9 161" 

180 S$*"Bankrelatle " 

190 T$ K "Kamer van Koophandel " 

200 Uf="Betal ing 8 dagen NETTO" 

210 Vfa"Kredietbeperklng 2% " 

220 INPUT" FAKTUURDATUM : "iFf 
230 PRINT 

240 INPUT" LAATSTE FAKTUURNO. :";F1 
250 PRINT :PRINT"ALLES IN ORDE ? ( Ja/Nee) 

H 

260 Q$*INKEY$:IF Q$*"" THEN 260 

270 IF Q$*"J" OR Q**"j" THEN 300 

280 IF Q*="N" OR Q$*"n" THEN CLS: GOTO 22 

0 
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290 GOTO 260 

300 REM *************************** 
$ $ “$ % 

** OPSTELLEN VAN FAKTUUR ** 
** ** 



y ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ jj^r ^ ^ ^ ^ 



310 CLS :COLOR 15,12,12 
320 PRINT 

330 INPUT "NAAM KLANT 

340 INPUT "ADRES 

350 INPUT"P . CODE+PLAATS 

360 PRINT :PRINT 

370 PRINT "FAKTUURNO. 

380 PRINT" FAKTUURDATUM 
390 LOCATE 0 ,22 : PR INT" 
ORDE ? < Ja/Nee) 



" ;G$ 

" ;H$ 

" ;I$ 

" : Fi+1 
" ;F$ 

GEGEVENS IN 



400 Q$=INKEY$:IF Q$="" THEN 400 
410 IF Q$="J" OR Q$*"i" THEN 440 
420 IF Q$="N" OR Q$-"n" THEN 310 
430 GOTO 400 



440 REM *¥*¥***********¥*********** 



** * * 

** HOOFDPROGRAMMA ¥* 
** ** 



*************************** 

450 F 1 = F 1 -Hl :GOSUB 480 
460 K 1 -0 : K2-0 : T -0 : GOSUB 730 
470 GOTO 940 

480 REM *************************** 

** ARTIKEL ZOEKEN IN DATA** 
*************************** 

490 C-l 
500 CLS 

510 INPUT "GEEF ARTIKELNUMMER :";QQ 
520 IF QQ< 1001 THEN PRlNT"Nummer te klei 
h ! ! " : FOR Q*1 TO 1000:NEXT Q:GOTO 500 
530 IF QQ> 1008 THEN PRINT"Nummer te gfoö 
t ! ! " :FOR 0*1 TO 1000:NEXT Q:GOTO 500 
540 RESTORE 

550 FOR Q=1 TO <QQ-1000> 




560 READ A4KC) ,B$<C) ,C$<C> ,D$(C) 

570 NEKT Q 

580 PRINT :PRINT A$<C>;* ";B$<C> 

590 PRINT: INPUT W AANTAL STUKS :*:A<C) 
600 IF A C C ) < 1 THEN 590 
610 EE~A(C) *VAL<C$<C) ) 

620 E«<C>=STR$<EE> 

630 LOCATE 0,22:PRINT" GEGEVENS IN O 
ROE < Ja /Nee) 

640 Q$=INKEY$:IF Q$="" THEN 640 
650 IF Q«="J" OR Q$~" ) * THEN 680 
660 IF Q$="N" OR Q$“"n" THEN 500 
670 GOTO 640 

680 LOCATE 0.22:PRINT" NOG EEN ARTIKEL V 
OOR DEZE KLANT (J/N)" 

690 Q$~INKEY$:IF Q$=" M THEN 690 
700 IF Q$="N" OR G$="h" THEN RETURN 

710 IF OR Q$= w r THEN 720 ELSE 69 

0 

720 C a C+l :GOTO 500 

730 REM ***************************** 

j|c ^ % j)è 

** KOP VAN FAKTUUR PRINTEN #* 

** ** 

yL O» ^ d‘ ^ dy ^ di ^ ^ ^ ^ Ui U» ^ ^ 

^ ^ ^ ^ T ^ T 1 T ^ T T t* T ^ T ^ T* T T T V * ^ ^ ^ 

740 LPRINT 

750 LPRINT CHR$<27) ; W H" ;CHR$(14) :TAB<6) ; 
N$;CHR$(15> 

y 760 LPRINT 'LPRINT CHR$(27> ; "N" 

770 LPRINT 0$:TAB<45-LEN<0$>> ;S$ 

780 LPRINT P$;TAB<45-LEN<P$>> ;T$ 

790 LPRINT R$ 

800 LPRINT: LPRINT 

810 LPRINT"FAKTUURNUMMER : ";F1 

820 LPRINT: LPRINT: LPRINT . 

830 LPRINT TABC43) ;G$ 

840 LPRINT TABC43) ;H$ 

850 LPRINT TAB(43) S 1$ 

860 LPRINT"BAARLE NASSAU /;F$ 

870 LPRINT 




880 LPRINT 

890 LPRINT"AANTAL ART. NO. OMSCHRIJVI 
NG PRIJS EXCL. BTW N 

ETTO" 

900 LPR1 NT H 



910 LPRINT 
920 R=25 
930 RETURN 

940 REM ****:M*###*****#*#*#*##*##*# 



#* 




* * 


*# 


PR1NTROUTINE 


** 


** 




** 



^ ^ ^ ^ j|^ ^ ^ ^ j|^ ^ ^ ^ ^ ^ ^ j||| ^ ^ ^ j|^ ^ 

950 FOR Q-l TO C 

960 X$=STR$<A<Q)> :L5»LEN(X$> ‘L1«LEN<A$(Q 
?) :L2=LEN<B$(Q)) ;L3*LHL2+L5:L4*L3+L5+10 
970 LPRINT A(Q) ;TAB(5~L5) ;A$<Q) ;TAB<5-L5 
) ;Bf(Q') ;TAB(38-L3) ; : LPRINT USING"F1 #### 
.##• : VAL<C$<Q) > ; : LPRINT TAB<7) ;Df <Q) { :LP 
RINT USING" F1 ######.##" ;VAL<E$<Q) > 
980 R*R+1:IF R*60 THEN GOSUB 1110 
990 IF Q*C THEN 1010 
1000 NEXT Q 
1010 GOSUB 1110 

1 020 REM #**##****##*¥**###***##*#*# ¥ 

%% % % 

** EINDE VAN FAKTUUR ** 

*# ¥# 

Af Af ^ ^ ^ ^ Ai Af |ü ^ ^ ^ Uj fb ^ «b ^ ^ ^ 

^ * T 1 *r r ^ T T * * T ^ T* ^ ^ ^ ^ ^ x 

1030 CLS 

1040 LOCATE 3 ,9 ;PRINT" ’ 1 ' * Nog een exem 
pl aar " 

1050 LOCATE 3,11 tPRINT" *2' = Een nieuwe 
faktüür" 

1060 LOCATE 0,22; PR INT" TOETS UW K 

EUZE IN (1/2) 

1070 Qf»INKEY$ IF Q$» H " THEN 1070 
1080 IF Q$="l" THEN 460 




1090 IF Q$= " 2 * THEN 440 
1100 GOTO 1070 

1110 REM** ** ****** ****************** 
** ** 
** SUBTOTAALTELLER ** 



** 



** 



S 1120 
1 1 30 



1140 
1150 
Y 1160 
/^1170 



1 180 
71 1190 
1200 
1210 



^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

FOR L=1 TO Q 
T=T+VAL(E$(L) ) 

1 F D$ < L ) = " 1 " THEN W=5:GQT0 1170 
IF D$<L>="2" THEN W*19:G0T0 1180 
W-0JNEXT L.*<5<5To <^5o. 
K1=K1+<W/100)*VAL<E$<L>> :GOTO 1190 
K2=K2+ < W/ 1 00 ) * VAL < E$ (L ) > 

NE'XT L 

IF R<60 THEN 1270 

LPRINT TABC48) ; "==============:==== 

— t* 



1220 LPRINT r LPRINT TAB<46);"TE TRANSPORT 
EREN: " :USING" F1 #######.##" ;T 
1230 FOR M-l TO (72-R) 

1240 LPRINT :NEXT M 
1250 GOSUB 730 
1260 RETURN 

.1270 LPRINT TAB<67) ; "+ " 

1280 LPRINT TAB (52) ; "SUBTOTAAL EXCL.";:L 
PRINT US I NG " F 1 ######.##" ;T 
1290 BT=K1+K2:BT=INT<BT*100+ .5)/100 
1300 LPRINT TAB (52) ; "BTW TOTAAL "::L 
PRINT US I NG " F 1 ###### . ##" :8T 

1310 LPRINT TAB<67) : "+ " 

1320 LPRINT TAB (52) : "TOTAAL ";:L 

PRINT USING" F 1 ###### .##" ; (BT+T) 

1330 KP=INT< . 02 *< BT+T) *100+ .5)/ 100 
1340 LPRINT TAB < 50) : "KREOIETBEPERKING 
US I NG " F 1 ######.##" :KP 

1350 LPRINT TA8C67) : "+ " 

1 360 LPR I NT TAB < 52 > ; " FAKTUURBEDRAG " ; : L 
PRINT USING" F 1 ####### . ; (BT+T+KP) 

1370 LPRINT : LPRINT 
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1380 K 1 = 1 NT < K 1 * 1 00+ . 5 ) / 1 00 

1 390 K2~ I NT < K2 * 1 00+ . 5 ) / 1 00 

1400 LPRINT" BTW 1 (5%) : " ;USING"F1 ##### 

.##" :K1 : : LPRINT w BTW 2 <19%):"; USING"F 

1 #####.##" ;K2 

1410 LPRINT: LPRINT U$ 

1420 FOR P=1 TO <72-R> : LPRINT :NEXT P 



1430 RETURN 

1440 REM **#***###*################# 

** Ut# 

** DATA - REGELS #* 

** ## 

^ *4' ‘V 4 ^ 4 4 ^ 

T* T T' T T' 'T' T T *T 4 T T* T* T 1 ^ ^ ^ ^ ^ ^ ^ ^ 

1450 REM ** #* 

** VOER HIER UW EIGEN ## 

** ARTIKELEN IN ## 

** OP VOLGORDE VAN ** 
1460 REM ** ARTIKELNUMMERS ## 

########################### 
1470 REM ** ## 

** HOUDT DAARBIJ DE ** 

## VOLGENDE VOLGORDE AAN ** 

^ ^ )(C )jC 

1480 REM ** 1 .ARTIKELNUMMER *# 

** 2 .OMSCHRIJVING ## 

** 3. VERKOOPSPRIJS EXCL. #* 

## 4. BTW CODE #* 

1490 REM ** 1- 5% 2= 19% ## 

** ## 

\i* ^ \Lf X thl \i> X ^ ^ \U ^ yL ^ ^ ^ yL» ^ ^ ^ t ip «L yb 

■ff. T T 

1500 DATA "1001" /"BOUTEN M8x30 50 STUKS 
"12.45" . "2" 

1510 DATA "1002" . "MOEREN M8 50 STUKS 
. "6.10" . "2" 



1520 DATA "1003" . "STEEKSLEUTEL 10/11 3 S 
TUKS" . "9.65" , "2" 

1530 DATA "1004" ."SCHROEVENDRAAIER 6 mm" 
,"6.19" , " 2 " 

1 540 DATA "1005" ."GEREEDSCHAPSKIST METAA 
L" . "16.95" , "2" 




1550 DATA "1006" , "BANKSCHROEF 50 mm", "38 
, 50 " , " 2 " 

1560 DATA "1007" , "SIKKELS 50 cm 8 STUKS" 
. "45.17" , "2" 

1570 DATA "1008" . "HANDLEIDING AEG GEREED 
SCHAP" ."16.75" f "1" 

1 580 DATA " 22Z2 " , " 2 " , " 2 " , " 2 " 
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PRIJSLIJSTEN 

Dit programma maakt voor U een verkoopsprijslijst uitgaande van Uw in- 
koopsprijzen. 

Het programma genereert een prijslijst voor 50 artikelen. Wilt U meer artike- 
len in Uw prijslijst opnemen dan past U de DIM-statements in regels 60-100 
aan. 

Runt U het programma dan wordt U eerst gevraagd welke Brutomarge U wilt 
behalen. Deze brutomarge wordt berekend van de uiteindelijke verkoopsprijs. 
Stel dat U een Brutomarge van 30% wilt, dan berekent het programma in de 
regels 810-840 de verkoopsprijs uitgaande van de inkoopsprijs. 

Nemen we bijv. Uw inkoopsprijs van ƒ 10,00 excl. BTW dan wordt met een 
brutomarge van 30% Uw verkoopsprijs ƒ 14,29 excl. BTW. Uw brutomarge 
is dan 30/100 x 14,29 = ƒ 4,29. 

Nadat U de marge heeft ingevoerd begint het programma. 

U vult alle artikelen in de prijslijst in. Tijdens het invoeren kunt U steeds met 
printen beginnen. Deze printroutine start op regel 900. 

Een nadeel van veel computers is dat wanneer ze getallen moeten afdrukken 
met een precisie van twee cijfers achter de komma, de laatste nul wegvalt. 
Met MSX-Basic heeft U daar gelukkig geen last van. In het programma is dan 
ook gebruik gemaakt van de opdracht PRINT USING. 
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10 REM 



^ ^ ^ ^ ^ kb ^ (L |i/ ^ ü^ ^ *J/ ^ (i‘ ^ 

<|S ^f» ^ ^ ^ ^ X* <fk ^ <f> X* ^ x T* T T T * T T* ^T* T* T 

** ** 

** PROGRAMMA VOOR HET ** 

** MAKEN VAN ** 

*# PRIJSLIJSTEN ** 

20 REM ** ** 

ib< «b \b ^ ^ 4' ^ ^ ^ W ^ ^ ^ ^ do 

X x x X x j ^ /ft X x x ^ x x x X x x* ^ ^ x x X x x 

30 CLSrWIDTH 40;COLOR 15 ,4 ,4 :KEYOFF 
40 REM *$**t*t ********* ******* *** 

^ % % % 

**VOOR 80 KOLOMS PRINTERS* 

%% %% 

*Lt ^ >1^ i^i d* «L> |b d/ ^ d» ti* d d/ W ^ d 1 d d tl* 4/ ^ 

X >X *T* x X 1 X x x * X x X x X x X x X X X x T X X ^ x 

50 REM ** ** 

** INITIALISEREN ** 

** ** 

#$**##*##*#**####**##***** 

60 DIM A$(50.):REM ARTIKELNAAM 
70 DIM P$<50) :REM VERKOÜPSPRI JS/STUK 

EXCL BTW 

80 DIM S$<50) :REM SPECIALE VERKOOPS- 
PRIJS/STUK 
90 DIM 6<50>: REM BTW TARIEF 
100 DIM I$<50? :REM INKOOPSPRIJS/STUK 

EXCL. BTW 

110 S-0 

120 INPUT "HOEVEEL % BRUTOMARGE WILT U : " 
;B1 

130 PRINT 

140 PR INT "HANTEERT U SPECIALE VERKOOPSPR 
IJZEN BIJ AFNAME VAN AANTALLEN < Ja/Nee)" 
: PR INT 

150 Q$=JNKEY$ : I F Q|s="" THEN 150 
160 IF Q$*" J" OR Q$="j" T-HEN S*l:GOTO 19 
0 

170 IF Q$s"N" OR Qf="n". THEN 220 
180 GOTO 150 

190 INPUT"8I J WELK AANTAL GEEFT U EEN SP 
EC I ALE VERKOOPSPRIJS : " ; Z 1 

200 PRINT :INPUT"WAT ' IS DAN DE EXTRA KORT 
ING IN % ";Y1 
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210 GOTO 1310 

220 REM **************************** 

# $ J|C % 

** INVOEREN ARTIKELEN ** 

** MET HUN INKOOPSPRIJS ** 

230 REM ** ** 

^ ^ ^Li ^ ^ ^L* ^ y l> ib ^ yL ^ ^ ^ J. ^L« ^ J> 

T* ^ X * x X T T T T T * T T T T T X X T X t T t* X T 

240 CLS :N~N+1 

250 PRINT'Aftikel nummer :";N 

260 PRINT 

270 I NPUT " Ar t i ke 1 naam :";K$ 

280 IF LEN(K,$)>25 THEN CLS: GOTO 250 
290 A$<N)-K$ 

300 PRINT : INPUT" I nkoopspri js :";I$<N 

> 

310 PRINT :PRINT" IS DE INKOOPSPRIJS CExcl 
.of Incl.) " 

320 Q$=INKEY$ : I F Q$="" THEN 320 

330 IF Q$="E" OR Q$="e" THEN B$="Excl.": 

C=0 :GOTÖ 410 

340 IF Q$="I" OR Q$- " i " THEN B$="Incl. w : 
C~1 :GOTO 360 
350 GOTO 320 

360 PRINT : PR INT" WAT IS HET BTW-TARIEF < 
1- 5% .2=19%) " 

370 Q$=INKEY$ : I F Q$="" THEN 370 
380 IF G$= " 1 " THEN 6<N>=5;G0T0 420 
390 IF Q$="2" THEN 8<N)=19 :GÖTO 420 
400 GOTO 370 
410 LOCATE 0,10: 

420 IF 0=1 THEN GOSUB 520 
430 GOSUB 560 

440 PRINT : PR INT "VERKOOPSPRIJS :";USING"F 
1 #####.##" :VAL(P$(N>> 

450 IF S-l THEN GOSUB 600 
460 IF S=1 THEN PRINT :PRINT"SPECIALE VER 
KOOPSPRIJS:" ;USING"F1 #####.##" ;VAL<S$(N 
)) 

470 LOCATE 0,22: PR INT" A=NOG EEN ARTIKEL 
M=MENU " 




480 Q$=INKEY$ : I F Q$=" " THÊN 480 
490 IF Q$=" A" OR Q$="a" THEN 220 
500 IF OR Q$="m" THEN 1310 

510 GOTO 480 

520 I = (VAL<U<N>>*100)/<100+B(N); 

530 I$<N)=STR$< INT< I *100+ .5)/ 100) 

540 PRINT" INKOOPSPRIJS excl . : " ;US1NG"F1 
#####.##" ; VAK I$<N) ) 

550 RETURN 

560 M* I NT < < < 1 00-8 1 > / 1 00 ) * 1 00+ . 5 > / 1 00 
570 P=INT( < VAL< I$<N) ) /M) * 100+ . 5) / 100 
580 P$<N)*STR$(P) 

590 RETURN 

600 REM ****;M********************** 

^ % j|( )K 

** SPECIALE VERKOOPSPRIJS ** 

** ** 

^ ^ ^ ^ ^ d* ^ d 1 d d ^ d d d d d d d d d d d d d» d d 

610 P-VAKP$<N) >-< INT< < <Y1/100)*VAL<P$<N 
>>>*100+, 53/100) 

620 S$(N>»STR$(P> 

630 RETURN 

640 REM fc*#**#*##**#*****#***#*#***# 



*# 




** 


** 


PRINT-ROUTINE 


** 


** 




** 



d d d d d d d d d d d d d d d d d d d d d d d d d d d d 
T^t^TTTTT^^^^T^^TT^TT^TtT ^ ^ ^ 

650 CLS :COLOR 15,1,1 

660 IF E=0 THEN PR INT "EERST PRIJSLIJST O 
PSTELLEN" :F0R J=1 TO 1500:NEXT J:GOTO 13 
10 

670 PRINT" PRIJSLIJSTEN PRINTEN" 

680 PRINT :INPUT"HOEVEEL PRIJSLIJSTEN WIL 
T U PRINTEN :" ;X 

690 PRINT :PRINT"KOP ZIET ER ALS VOLGT UI 

T : " ! PR 1 NT " :ssss:ss:essss:ss:=:::ss:srï:s 

===“====" : PR INT 

700 PRINT E$ ; REM UW FIRMANAAM 

710 PRINT F«:REM ADRES 

720 PRINT G$:REM P . CODE+PLAATS 
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730 PR INT "PRIJSLIJST PER : " :D$ :REM DATUM 
740 PRINT :PRINT 

750 PR INT "ER ZIJN ";N;" ARTIKELEN INGEVO 
ERD " 

760 LOCATE 0 ,22 :PRÏNT"A« ARTIKELLIJST M 
«MENU PapRINTEN " 

770 Q$«INKEY$ : IF Q$*"" THEN 770 
780 IF Q$«"M" OR THEN 1310 

790 IF Q$«"A" OR Q$="a" THEN 820 

800 IF Q$="P" ÜR Q$="p" THEN 910 

810 GOTO 770 

820 REM ***************************** 

** ** 

** ARTIKELLIJST ÜP SCHERM ** 

** ** 
***************************** 

830 CLS.'COLOR 1,4,4 
840 FOR M»1 TO N 
850 PRINT M:"« ":A$<M) 

860 PRINT "VERKOOPSPRIJS: "USING" F 1 ##### 
.##" ;VAL<P$<M)> 

870 PRINT"SPECI ALE PRIJS ;USING"F1 #### 
VAL <S$<M)) : : PR INT" per:" :21 
880 PRINT 
890 NEKT M 
900 GOTO 760 

910 REM ***************************** 

** ** 

** PRIJSLIJST PRINTEN ** 

** ** 

***************************** 

920 CLSiCOLOR 15,1,1 
930 R*0 

940 FOR L*1 TO X 

950 LPRINT CHR$<27) : "H" :REM ZIE HANDLEID 
ING VAN UW EIGEN PRINTER (LETTERTYPE) 

960 LPRINT CHR$< 14) ;E$ ;CHR$( 15) 

970 LPRINT F$ 

980 LPRINT G$ 

990 LPRINT 




1000 LPR INT "PRIJSLIJST PER:";D$ 

1010 LPR INT 
1020 LPR INT 

1030 LPR INT "ARTIKEL 

VERKOOP PER : " ;Z1 

1040 LPR INT" 

EXCL . EXCL." 

1050 LPRINT "****•***=*«««****»*«■**** 






H 



1060 LPR INT 

1070 Ra 12 

1080 FOR M*1 TO N 

1090 LPR INT A$<M) ;TAB(60-LEN<A$<N))) j :LP 
RINT USING"F1 #####.##" ;VAL<P$<M> >;: LPRI 
NT USING" F1 #####.##" ;VAL<S$<M)> 
1100 R-R+l 
1110 NEKT M 

1120 FOR P=l TO <70-R) rLPRINT :NEXT P 
1130 NEXT L 
1140 GOTO 1310 

1 150 'REM ********#******=1 ;#*#*#*****###* 
** ** 

** KOP VAN FAKTUUR INVOEREN ** 

* * *# 



****************************** 
i 1 £ a r> | q • f'fi I f|P 4 7 7 

1170 PRINT" VERSTREK DE VOLGENDE GEGEVEN 
S ! " : PR INT 



1180 PRINT " 7. % % % % 7, % % % % % % % % % % % 7. % % % % % % % % % % % 



%%%%%%%%%%" : PR INT 
1190 INPUT "UW FIRMANAAM :";E$ 
1200 INPUT "ADRES :";F$ 

1210 INPUT "P .CODE+PLAATS :";G$ 
1220 PRINT 



1230 INPUT "PER WELKE DATUM IS DE PRIJSLI 
JST GELDIG: ";D$ 

1240 PRINT 




1250 INPUT "GEEF DATUM OOK IN VOLGENDE NO 
TATIE : (DDMMJJ) ! ";X$ 

1260 LOCATE 0,22: PR INT" ALLE GEGEVEN 

S IN ORDE (Ja/Nee) V 

1270 Q$~INKEY$ : I F Q$*"" THEN 1270 

1280 IF OR THEN E*1 :GOTO 1 

310 

1290 IF Q$a"N" OR Q$*"n" THEN 1150 
1300 GOTO 1270 

1310 REM *************************** 



** 




** 


** 


MENU 


** 


** 




** 



*************************** 

1320 CLS : CO LOR 15,12,12 

1330 LOCATE 15,0:PRINT" MENU" 

1 340 PR I NT : PR I NT " 

1350~PR1NT" 1 > = aaa: = s==: = s ! =:=:pRI JSLI JST OP 
STELLEN" : PRINT 

1360 PRINT" 2 >«■*■**« INKOOPSPRIJZEN- I 
NVOEREN" : PR INT 

1370 PRINT" 3 )ss=s sb = s PR I NTEN VAN PRIJS 
LIJSTEN" : PRINT 

1380 PRINT" 4 >asssïsa5spp IJSLIJST OP TAPE 
OPSLAAN" : PR INT 

1390 PRINT" 5 >=======PRiJSLI JST LADEN V 

AN TAPE" :PRINT 

1400 LOCATE 0,22: PR INT" TOETS UW 

KEUZE IN* 

1410 Q$s=INKEYf : IF Q$«"" THEN 1410 
1420 IF Q$< " 1 " OR Q$> "5" THEN 1410 
1430 Q-VAL<Q$) 

1440 ON Q GOTO 1150,220,640.1460,1680 
1450 GOTO 1410 

1460 REM ****************************** 
** ** 

** GEGEVENS OP TAPE OPSLAAN ** 
** ** 

****************************** 




1470 CLS :COLOR 1,11,11 
1480 PRINT "GEGEVENS WORDEN WEGGESCHREVEN 
NAAR TAPE ONDER DE FILENAAM ;X$ 

1490 LOCATE0, 22! PRINT* TOETS > RETURN < 
ALS U WILT BEGINNEN * 

1500 9*-INKEY$:IF Q$*"" THEN 1500 
1510 IF ASC<Q$) 0 13 THEN 1500 
1520 MOTOR ON 

1530 OPEN "CAS : "X$ FOR OUTPUT AS #1 
1540 PRINT#1,N 
1550 FOR M-l TO N 
1560 PRINT#1 ,A$<M) 

1570 PRINT#1 ,P$(M> 

1580 PRINT#1 ,S$<M> 

1590 PRINT#1 . I$<M) 

1600 NEXT M 
1610 PR1NT#1 ,E9 
1620 PRINTttl , Ff 
1630 PRINT#1 ,G$ 

1640 PRINT#1 ,D$ 

1650 CLOSE#l 
1660 MOTOR OFF 
1670 GOTO 1310 

1680 REM ****************************** 

jjt J|t 

** GEGEVENS VAN TAPE LADEN ** 
** #* 
*********##:|c#******#*##*****:|c^ 

1690 CLS :COLOR 1.11,11 

1700 INPUT"WELKE FILE MOET VAN TAPE GELA 
DEN WORDEN" :Xf 

1710 LOCATE0 , 22 ‘PRINT" TOETS > RETURN < 
ALS U WILT BEGINNEN " 

1720 Q$=INKEY$ : I F q$="" THEN 1500 
1730 IF ASC<Q$X>13 THEN 1500 
1740 MOTOR ON 

1750 OPEN "CAS : "Xf FOR INPUT AS #1 
1760 INPUT# 1,N 
1770 FOR M-l TO N 
1780 INPUT#1 ,A$<M> 




1790 INPUT# 1 ,P$(M) 
1800 INPUT# 1 ,S$(M) 
1810 INPUT# 1 , I$<M) 
1820 NEXT M 
1830 INPUT# 1,E$ 
1840 INPUT#1 , F$ 
1850 INPUT# 1 , G$ 
1860 INPUT# 1 ,D$ 
1870 CL0SE#1 
1880 MOTOR OFF 
1890 E=1 :GOTO 1310 
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FINANCIËLE 

BEDRIJFSANALYSE 

Met dit programma kunt U als zakenman zich snel een beeld verschaffen van 
de financiële verhoudingen binnen Uw bedrijf. 

Het programma verschaft U een aantal financiële kengetallen waarmee U Uw 
bedrijf kunt vergelijken met bedrijven in dezelfde branche. Deze laatste gege- 
vens kunt U via de kamer van koophandel of bepaalde branche-gerichte vere- 
nigingen verkrijgen. 

Ziet de vergelijking er voor Uw bedrijf niet zo zonnig uit dan wordt het tijd 
dat U Uw beleid eens aanpast. Met dit programma is het voor U een kleinig- 
heid de zere plekken in Uw bedrijf te ontdekken. 

Voor een optimaal gebruik van dit programma dient U over de volgende gege- 
vens te beschikken: 

- Saldo liquide middelen (Kas-Bank en Giro) 

- Waarde van de voorraad 

- Waarde van inventaris, gebouwen enz. 

- Totaal van de vorderingen 

- Totaal van de schulden op korte termijn 

- Totaal van de schulden op lange termijn 

- Totaal aan eventuele leningen 

- Het eigen kapitaal van de onderneming 

- Het reservekapitaal van de onderneming 

- Onverdeelde winsten 

- Bedrag van de kasverkopen 

- Bedrag van verkopen op rekening 

- Bedrag van afschrijvingen 

- Bedrag van de inkopen 

- Bedrag van de rente op eventuele lening 

- Bedrag van huur of huurwaarde als U een eigen pand bezit 

- Bedrag ban belastingen 

- Totaal van de overige bedrijfskosten (kantoorkosten, verkoopkosten, enz) 
Al deze gegevens kunt U vinden op de balans en de Winst- en Verliesrekening. 
De berekeningen van de diverse kengetallen zijn gebaseerd op het DU-PONT- 
SCHEMA. 
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BHI fi N S OPSTEL! ING 










KAPIT hhL 


1000 




RESERUES 


1000 




ONUERD . WINST 


1000 




OUERIG 


1000 








4000 








UOORRhhD 


2000 




LIQ. MIDDELEN 


1000 




'..'ORDERINGEN 


2000 




OU. ULÜT. MIDDELEN 


1000 




UASTG. MIDDELEN 


1000 








7000 








BANKLENINGEN 


1000 




SCHULDEN KORT 


1000 




SCHULDEN LANG 


1000 








3000 






4000 


v E R L I E S & Ui I N ST ft: E K E N I N G 


mÊBEBEBam 






U ER KOOP KÜNThNT 




1000 


UERKOOP OP REK . 




1000 


OU. INKOMSTEN 




1000 


l3E32BSnH199 






INKOPEN /AFSCHR . 




1000 


RENTE 




1000 


HUUR 




1000 


BELASTING 




1000 


OU . BEDRIJFSKOSTEN 




1000 




-2000 





1 0 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXX 



XX XX 

XX BEREKENING VAN OE XX 

XX FINANCIËLE KENGETALLEN XX 

20 REM xx VOLGENS HET ** 

XX ÜU-PONT SCHEMA XX 

xx xx 



X X ^ ü> «tf \i/ vLf dr «J/ -d dt ^ vLd d ^ (U ^L) ^ ^ ^ 

ifi 'T' T ^ * T * * t ^ <p -p T T' t *r T 1 T *r x t ^ ^ 

30 CLS : WIDIH 40 :COLQR 16 , 4 . 4 :KEY 0 FF 
40 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxx 
XX INITIALISEREN xx 



xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

S0 DIM A<5> ,8(3) ,C(4> ,D<3> ,E<5> 

60 DIM A$<6) ,B$<3) ,C$<4) , D$<3> ,Ef<5) 
70 A=0 : B-0 i O0 : D=0 : E-8 : I =0 : J= 1 
80 RESTORE 

90 FOR F=i TO 5 :READ A$<F):NEXT F 
100 FÜR F=1 TO 3: RE AD B$(F):IMEXT F 

110 FOR F=1 TO 4 : READ C$<F):NEXT F 

120 FOR F=1 TO 3 : READ D$<F):NEXT F 

130 FOR F-l TO 5: READ E$<F):NEXT F 

140 GÜSUB 630 
150 GOTO 1520 

160 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
XX xx 

XX INVOEREN VAN GEGEVENS XX 



XX XX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



170 CLS:CÖLOR 1,11 ,11 : PRINT 

180 PRINT" VOER DE VASTE GEGEVENS I 

N ! " 

190 PRINT" 



, rs A i'n A A « 



, A A A A A A A A A » 



*•«. «S t\ /S ✓*. /v A A • 



200 PRINT"1. BEZITTINGEN:" 

210 FOR. X= 1 TO 5 

220 PRINT" " :A$(X) : " " ; 

230 INPUT X$ 

240 GOSUB 760: IF 1-0 THEN 220 
250 A(X)=VAL<X$) :A-A+A(X) 
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260 NEKT X 

270 PRINT: PR INT "2. SCHULDEN :" 

280 FOR X=i TO 3 

290 PRINT" " ;B$KX> ; " 

300 INPUT X$ 

310 GOSUB 760: IF 1*0 THEN 290 
320 EKX)-VAL<X$> :B-B+B(X> 

330 NEXT X 

340 PRINT .-PRINT "3. Ei GEN VERMOGEN : " 

350 F GR X-l TU 4 

360 PRINT" " ;C$<X) ; " 

370 INPUT Xf 

380 GOSUB 760: IF 1=0 THEN 360 
390 C<X)=VAL<X$) :C=C+C(X; 

400 NEXT X 

410 PRINT : PRINT "4. OPBRENGSTEN 
420 FOR X=1 TO 3 

430 PRINT" " : Df < X ) ; " " : 

440 INPUT X$ 

450 GOSUB 760: IF 1=0 THEN 430 
460 D<X)=VAL<;X$) :D=D+D(X) 

470 NEXT X 

480 PRINT :PRINT"5. UITGAVEN 
498 FOR X=1 TO 5. 

500 PRINT" * :Ef (X) ; " " ; 

510 INPUT X$ 

520 GOSUB 760: IF 1=0 THEN 500 
530 EcX)=VAL(Xf ) :E=E+E(X> 

540 NEXT X 
550 1=1 

560 IF A=B+C THEN RETURN 

570 PRINT :PRINT" BALANS IS NIET IN EVENW 

ICHT ! ! ! ! " 

580 PRINT 

590 PRINT" DRUK OP EEN TOETS VOOR KORREK 
T1E " 

600 Q$=INKEY$ : I F Q$="" THEN 600 

610 GOSUB 850 

620 GOTO 560 

630 CLS :COLQR 15.1,1 




640 PRINT :PRINT" R A T I O - C 

A L C " 

650 PRINT" TERMINAL SOFTWARE PUB 
LICATIES" 

660 PRINT 

670 PR INT "copyright 1985 MSX- versie :R-J . 
DONKERS" 



680 PRINT 



ft 



690 PRINT: PR INT 

700 PRINT" Dit programma verschaft U de 
f inancielekengetal ïen van Uw bedrijf van 
uit de Balans en Resultatenrekening." 
710 PRINTiPRINT" Verstrek de gegevens in 
HELE guldens !" 

720 LQCATE 0,22: PR INT" TOETS > RETUR 

N < VOOR VERVOLG " 

730 Q$=INKEY$ : I F Q$="" THEN 730 
740 IF ASCCQf )=13 THEN RETURN 
750 GOTO 730 
760 N“LEN<X$> 

770 1=1 

780 IF N>7 THEN PR INT "WAARDE TE GROOT ! ! 

1=0: GOTO 840 
790 FOR Y=1 TO N 

800 IF ASC(MID$<X$ , Y , 1 ) ) <48 OR ASC<MID$< 

X$ , Y , 1 ) ) >58 THEN 1=0 

810 NEXT Y 

820 IF J=0 THEN 840 

830 IF 1=0 THEN PRINT"GEEF WAARDE IN HEL 
E GULDENS !" 

840 RETURN 

850 REM *****#****#**********###* 

** VERANDERINGEN AANBRENGEN ** 
****** **%*******%*%*** 
860 CLS :C0L0R 1,3,3 
870 J=0 

880 PRINT: PR INT" BEZITTINGEN:" 

890 LOCATE 0,4: PR INT" 0 => VERDER GAAN" 
900 FOR X=1 TO 5 




910 LOCATE 8 . 5+X : PR INT X:".>" 

920 LOCATE 6, 5+X: PR INT A$<X) 

930 LOCATE 28. 5+X: PR INT USING"fl ####### 
#" : A<X> 

94é NÊX1 X 

950 LOCATE 0.13: INPUT" WIJZIGEN <0.1, 2, 3 
,4.5>" ;X$ 

960 M=VAL<X$) 

970 IF M<0 OR M>5 THEN 950 
980 I F M=0 THEN 1040 

990 LOCATE 0 . 15 : PRINT" GEEF NIEUWE WAARDE 
VOOR : " ; A$<M) 

1000 LOCATE 0,17: INPUT X$ 

1010 GOSUB 760: IF 1=0 THEN 1000 
1020 A(M)=VAL<X$) 

1030 GOTO 850 
1040 CLS : CO LOR 1,3,3 
1050 J=0 

1060 PRINT : PR INT" SCHULDEN:" 

1070 LOCATE 0 ,4 :PE1NT" 0 => VERDER GAAN" 

1080 FOR X*1 TO 3 

1090 LOCATE 0, 5+X: PR INT X;".>" 

1100 LOCATE 6, 5+X: PR INT B$<X> 

1110 LOCATE 28, 5+X: PR INT USING"fl ###### 
##" :B(X; 

1120 NEXT X 

1130 LOCATE 0,13: INPUT" WIJZIGEN <0,1,2, 
3) " ;X$ 

1140 M=VAL<X$) 

1150 IF M<0 OR M>3 THEN 1130 
1160 IF M=0 THEN 1220 

1170 LOCATE 0,15 : PR INT "GEEF NIEUWE WAARD 
E VOOR : " ;B$<M) 

1180 LOCATE 0,17: INPUT X$ 

1190 GOSUB 760: IF 1=0 THEN 1170 
1200 B<M)“VAL<X$> 

1210 GOTO 1040 
1220 CLS :COLOR 1,3,3 
1230 .1=0 

1240 PRINT: PR INT" 



EIGEN VERMOGEN:" 




1250 LOCATE 0,4:PRINT" 0 *> VERDER GAAN" 

1260 FOR X=1 TO 4 

1270 LOCATE 8,5+X:PRINT X;".>" 

1280 LOCATE 6,5+X:PRINT C$<X> 

1290 LOCATE 28,5+X:PRINT USING"fi ###### 
##" ;C<X) 

1300 NEXT X 

1310 LOCATE 0,13: INPUT" WIJZIGEN <0,1,2, 
3.4)" ;X$ 

1320 M*VAL<X$) 

1330 IF M<0 OR M>4 TNEN 1310 
1340 IF M=0 THEN 1400 

1350 LOCATE 0 , 15 .‘PRINT "GEEF NIEUWE WAARD 
E VOOR:" 

1360 LOCATE 0,17: INPUT X$ 

1370 G'OSUB 760 :IF 1*0 THEN 1360 
1380 C(M)=VAL<X$) 

1390 GOTO 1220 

1400 REM ****** ********************* 

** SUBTOTALEN OPNIEUW ** 

** UITREKENEN ** 

^ ^ ^ ^ y ^ ^ ^ ^ ||^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

1410 A=0:B*0:C=0 
1420 FOR X*1 TO 5 
1430 A*A+A<X) 

1440 NEXT X 
1450 FOR X-l TO 3 
1460 B*B+B<X) 

1470 NEXT X 
1480 FOR X»1 TO 4 
1490 C=C+C<X) 

1500 NEXT X 
1510 RETURN 

1520 REM *************************** 

** ## 

** HOOFDMENU ** 

** ** 

*************************** 

1530 IF 1=0 THEN GOSUB 160 
1540 CLS :CQLQR 15,4,4 




1550 PRINT" #**MENU***" 

1 S 0 0 P l N F * P P I j\| f ** ^ '' S ^ *'”* *'*■ A**. A /> A (\ A A AS A A A A 

-** A A A A /V /V /\ f\ A A A A A A . . >J 

1570 LOCATE 0 . 5 :PRINT"BALANS opstellen— 
=> 1" 

1580 PR INT: PR INT "VERLIES- en WI NS TREKEN I 
NG--> 2 " 

1590 PRINT : PR INT "ANALYSEREN KENGETALLEN- 
— => 3" 

1600 LOCATE 0,22: PR INT" TOETS U 

W KEUZE IN ! " 

1610 Q$=INK£Yf : I F Q$~"" THEN 1610 
1620 IF Q$< " 1 " OR Q$>"3" THEN 1610 

1630 I F Q$="i" THEN GÜSUB 1670: GOTO 1520 

1640 I!- Q$="2" THEN GOSUB 1910: GOTO 1520 

1650 IF Q$="3" THEN GOSUB 2 120: GOTO 1520 

1660 GOTO 1610 

1670 REM **************************** 

$ % ^ j|f 

¥* 8 A L A N $ OPSTELLEN ** 

** ** 

%%*%%%%%•)(.%%) <%%*%* 

1680 CLS : CU LOR 12,3,3 

1690 PRINT" B A L A N S":PRINT 

1700 PRINT "EIGEN VERMOGEN:" 

1710 FOR X*1 TO 4 

1720 PRINT C$<X) ; : PR INT TAB< 19) ;USING"f 1 
###*####" ;C(X) 

1730 NEXT X 

1740 LOCATE 28. 7: PR INT USING"fl ######## 

** * c 

1750 LOCATE 28 ,8 :PRINT"**«— — " 

1760 PR INT "BESTAAT UIT 
1770 FOR X-l TO 5 

1780 PRINT Af <X) : : PR INT TAB< 19) ;USING"f 1 
########" ; A<X) 

1790 NEXT X 

1800 LOCATE 28 , 15 :PRINT USING"fl ####### 

: A 

löie LOCATE 28, 16: PRINT"*— ***«*=*" 




1820 PR INT "VERMINDERD MET:" 

1830 FOR X=1 TO 3 

1840 PRINT B$<X) ; : PR INT TAB< 19) ;USING"f 1 
########" ;6<X) 

1850 NEXT X 

1860 LOCATE 28,21: PRINT USING"fl ####### 
#" :B 

1870 LOCATE 28 .22 : PR INT 

1880 LOCATE 0 ,22 : PR INT" >RETURN< VOOR MEN 

U" 

1890 Q$=INKEY$ : I F Q$-"" THEN 1890 
1900 1F ASC<Q$>~13 THEN RETURN ELSE 1890 
1910 REM ***************************** 

^ ^ jjï )|C 

**VERLIES- EN WINSTREKENING** 

** OPSTELLEN ** 

«L» iL* df ^ dr ^ ^ 4 4/ W \k* «b 4* 4 4 4 4 4* 4 d* «L 4» 

^ ^ ^ 'p ^ /p /p ^ /p q*> ^ ^ ^ ^ Jy* ^ ^ 

1920 CLS :COLOR 14,1,1 

1930 PRINT" VERLIES- & WINSTREKENI 

NG" 

1940 P R 1 N T ** AAAAA/IA/*^AAArtAAAftAAAAA 

/>A " : PR INT 

1950 PR INT" ONTVANGSTEN : " : PR INT 
1960 FOR X«1 TO 3 

1970 PRINT" •;D*00{:PR‘INT TA8<28) USIN 
G" f 1 ########" ;D<X) 

1980 NEXT X 
1990 PRINT 

2000 PR INT "MINUS KOSTEN :" :PRI NT 
2010 FOR X-l TO 5 

2020 PRINT" " ;£$<X) : :PRINT TAB<28) USIN 
G"f 1 ########" ;E(X) 

2030 NEXT X 

2040 PRINT TA8<28) " " 

2050 IF D>E THEN PRINT "WINST TAB(28) : 
2060 IF E>D THEN PR INT "VERLIES : " ;TAB<28) 

é 

2070 PRINT USING" f I ########"; <D-E> 

2080 LOCATE 0,22: PR INT" TOETS > RET 

URN < VOOR MENU" 




2090 Q$~INKEY$ : I F Q$="" THEN 2090 
2100 IF ASC<Q$)=13 THEN RETURN 
2110 GOTO 2090 

2120 REM ***************************** 

# $ 

** TABEL VAN KENGETALLEN ** 

** ** 
*i**^t ************* *********** 

2130 CLSiCOLÜR 11,4,4 

2140 PRINT "TABEL FINANCIËLE KENGETALLEN" 
2150 PR INT" :=-===== = = = “=-S= = ===S=-S!=:==: ==«8=8: " 

2160 PRINT 

2170 PRINT"CURRENT RATIO =" 

: 1NT< <A"A<5) )/<B-B<3) )*100+ .5)/ 100 
2180 PRINT 

2190 PRINT"QUICK RATIO 
; I NT < <. ( < A-A O ) -A < 5 ) ) / < B-B (3>>))*1 00+ . 5 ) / 
100 

2200 PRINT 

2210 PRINT"DEKKING SCHULDEN *" 

; INT < (B/A) * 100+ . 5) / 100 
2220 PRINT 

2230 PR INT "DEKKING RENTELASTEN *" 

• 1NT( < <D-E+E(2)+E<4) ) /E(2> > *100+ . 5J/100 
2240 PRINT 

2250 PR INT "DEKKING VASTE LASTEN -" 

: INT<<<D-Ea>-E(5)>/CE<2)+E<4)>)*100+.5) 
/ 100 

2260 PRINT 

2270 PRINT"OML .SNELH .VASTG .MIDDELEN 
:INT(<(DU>+D<2>>/A<5>>*100+.5)/100 
2280 PRINT 

2290 PR I NT "OML. SNELH. TOTALE ACTIVA 
: INT< ( <D< 1 >+D<2> >/A) *100+ . 5) / 100 
2300 PRINT 

2310 PR INT "WINSTMARGE *=" 

:lNT<aD-E>/<D<l>+D<2>>)*100+.5>/100 
2320 PRINT 

2330 PRINT "RENTABILITEIT V/H BEDRIJF 
;INT<<<D-E>/A)*100+.5>/100 




2340 LOCATE 0,22 : PR INT* TOETS RETURN VO 
OR MENU * 

2350 Q$*INKEY$ : I F Q$*"" THEN 2350 
2360 IF ASC ( Q$ ) = 1 3 THEN RETURN 
.2370 GOTO 2350 

2380 DATA "Voorraad" . "Liq. middelen* , "Vor 
deringen" , "Over .Vlot .Middelen* , "Vastgei . 
Middelen" 

2390 DATA "Bankleningen" , "Schulden Kort" 
. "Schulden Lang" , "Kapitaal * , "Reserves" , " 
Ünverd .Winst" , "Overige" 

2400 DATA "Verkoop Contant" , "Verkoop op 
Rek. . " , "Overige I nkomsten" , " 1 nkopen/Af sch 
r . " , "Rente" , "Huur" 

2410 DATA "Belasting" , "Overige Bedri jfsk 
ost . " 
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AANTEKENINGEN: 




